| 
**************************************************************** * * * Data Structure For API: QSRLSAVF * * Format: SAVF0100 * * Language: Cobol * * * **************************************************************** 01 SAVF-INPUT. 05 USER-SPACE-SPEC. 10 USER-SPACE-NAME-SPEC PIC X(10). 10 USER-SPACE-LIBRARY-SPEC PIC X(10). 05 FORMAT-SPEC PIC X(08). 05 SAVE-FILE-SPEC. 10 SAVE-FILE-NAME-SPEC PIC X(10). 10 SAVE-FILE-LIBRARY-SPEC PIC X(10). 05 OBJECT-NAME-FILTER-SPEC PIC X(10). 05 OBJECT-TYPE-FILTER-SPEC PIC X(10). 05 CONTINUATION-HANDLE-SPEC PIC X(36). 01 SAVF-HEADER. 05 USER-SPACE-USED. 10 USER-SPACE-NAME-USED PIC X(10). |
|
10 USER-SPACE-LIBRARY-USED PIC X(10). 05 SAVE-FILE-USED. 10 SAVE-FILE-NAME-USED PIC X(10). 10 SAVE-FILE-LIBRARY-USED PIC X(10). 05 CONTINUATION-HANDLE-RETURNED PIC X(36). 01 SAVF0100-LIST. 05 LIBRARY-SAVED PIC X(10). 05 SAVE-COMMAND PIC X(10). 05 SAVE-DATE PIC X(08). 05 ASP PIC S9(9) COMP-4. 05 RECORDS-SAVED PIC S9(9) COMP-4. 05 OBJECTS-SAVED PIC S9(9) COMP-4. 05 ACCESS-PATHS PIC S9(9) COMP-4. 05 SAVE-ACTIVE PIC X(10). 05 RELEASE-LEVEL PIC X(06). 05 DATA-COMPRESSED PIC X(01). 05 SYSTEM-SERIAL-NUMBER PIC X(08). 05 RESERVED PIC X(03). I**************************************************************** I* * |
|
I* DATA STRUCTURE FOR API: QSRLSAVF * I* FORMAT: SAVF0100 * I* LANGUAGE: RPG * I* * I**************************************************************** IINPUT DS I 1 20 IUSRSP I 1 10 ISPCNM I 11 20 ISPCLB I 21 28 IFMTNM I 29 48 ISAVF I 29 38 ISFNAM I 39 48 ISFLIB I 49 58 IOBJNM I 59 68 IOBJTY I 69 104 ICNTHD IHEADER DS I 1 20 HUSRSP I 1 10 HSPCNM I 11 20 HSPCLB I 21 40 HSAVF I 21 30 HSFNAM |
|
I 31 40 HSFLIB I 41 76 HCNTHD ILIST DS I 1 10 SAVLIB I 11 20 SAVCMD I 21 28 SAVDAT I B 29 320ASP I B 33 360NBRRCD I B 37 400NBROBJ I B 41 440NBRACC I 45 54 SAVACT I 55 60 RLSLVX I 61 61 DTACPR I 62 69 SYSSER I 70 72 RESERV **************************************************************** * * * Data Structure For API: QSRLSAVF * * Format: SAVF0200 * * Language: Cobol * * * **************************************************************** |
|
01 SAVF-INPUT. 05 USER-SPACE-SPEC. 10 USER-SPACE-NAME-SPEC PIC X(10). 10 USER-SPACE-LIBRARY-SPEC PIC X(10). 05 FORMAT-SPEC PIC X(08). 05 SAVE-FILE-SPEC. 10 SAVE-FILE-NAME-SPEC PIC X(10). 10 SAVE-FILE-LIBRARY-SPEC PIC X(10). 05 OBJECT-NAME-FILTER-SPEC PIC X(10). 05 OBJECT-TYPE-FILTER-SPEC PIC X(10). 05 CONTINUATION-HANDLE-SPEC PIC X(36). 01 SAVF-HEADER. 05 USER-SPACE-USED. 10 USER-SPACE-NAME-USED PIC X(10). 10 USER-SPACE-LIBRARY-USED PIC X(10). 05 SAVE-FILE-USED. 10 SAVE-FILE-NAME-USED PIC X(10). 10 SAVE-FILE-LIBRARY-USED PIC X(10). 05 CONTINUATION-HANDLE-RETURNED PIC X(36). 01 SAVF0200-LIST. |
|
05 OBJECT-NAME PIC X(10). 05 LIBRARY-SAVED PIC X(10). 05 OBJECT-TYPE PIC X(10). 05 EXTENDED-OBJECT-ATTRIBUTE PIC X(10). 05 SAVE-DATE PIC X(08). 05 OBJECT-SIZE PIC S9(9) COMP-4. 05 OBJECT-SIZE-MULTIPLIER PIC S9(9) COMP-4. 05 ASP PIC S9(9) COMP-4. 05 DATA-SAVED PIC X(01). 05 OBJECT-OWNER PIC X(10). 05 DLO-NAME PIC X(20). 05 FOLDER PIC X(63). 05 TEXT PIC X(50). I**************************************************************** I* * I* DATA STRUCTURE FOR API: QSRLSAVF * I* FORMAT: SAVF0200 * I* LANGUAGE: RPG * I* * I**************************************************************** IINPUT DS I 1 20 IUSRSP |
|
I 1 10 ISPCNM I 11 20 ISPCLB I 21 28 IFMTNM I 29 48 ISAVF I 29 38 ISFNAM I 39 48 ISFLIB I 49 58 IOBJNM I 59 68 IOBJTY I 69 104 ICNTHD IHEADER DS I 1 20 HUSRSP I 1 10 HSPCNM I 11 20 HSPCLB I 21 40 HSAVF I 21 30 HSFNAM I 31 40 HSFLIB I 41 76 HCNTHD ILIST DS I 1 10 OBJNAM I 11 20 SAVLIB I 21 30 OBJTYP I 31 40 OBJATT |
|
I 41 48 SAVDAT I B 49 520OBJSZ I B 53 560OBJSZM I B 57 600ASP I 61 61 DTASAV I 62 71 OBJOWN I 72 91 DLONAM I 92 154 FLRNAM I 155 204 TEXT **************************************************************** * * * Data Structure For API: QSRLSAVF * * Format: SAVF0300 * * Language: Cobol * * * **************************************************************** 01 SAVF-INPUT. 05 USER-SPACE-SPEC. 10 USER-SPACE-NAME-SPEC PIC X(10). 10 USER-SPACE-LIBRARY-SPEC PIC X(10). 05 FORMAT-SPEC PIC X(08). 05 SAVE-FILE-SPEC. |
|
10 SAVE-FILE-NAME-SPEC PIC X(10). 10 SAVE-FILE-LIBRARY-SPEC PIC X(10). 05 OBJECT-NAME-FILTER-SPEC PIC X(10). 05 OBJECT-TYPE-FILTER-SPEC PIC X(10). 05 CONTINUATION-HANDLE-SPEC PIC X(36). 01 SAVF-HEADER. 05 USER-SPACE-USED. 10 USER-SPACE-NAME-USED PIC X(10). 10 USER-SPACE-LIBRARY-USED PIC X(10). 05 SAVE-FILE-USED. 10 SAVE-FILE-NAME-USED PIC X(10). 10 SAVE-FILE-LIBRARY-USED PIC X(10). 05 CONTINUATION-HANDLE-RETURNED PIC X(36). 01 SAVF0300-LIST. 05 FILE-NAME PIC X(10). 05 LIBRARY-SAVED PIC X(10). 05 MEMBER-NAME PIC X(10). 05 EXTENDED-OBJECT-ATTRIBUTE PIC X(10). 05 SAVE-DATE PIC X(08). 05 MEMBERS-SAVED PIC S9(9) COMP-4. |
|
I**************************************************************** I* * I* DATA STRUCTURE FOR API: QSRLSAVF * I* FORMAT: SAVF0300 * I* LANGUAGE: RPG * I* * I**************************************************************** IINPUT DS I 1 20 IUSRSP I 1 10 ISPCNM I 11 20 ISPCLB I 21 28 IFMTNM I 29 48 ISAVF I 29 38 ISFNAM I 39 48 ISFLIB I 49 58 IOBJNM I 59 68 IOBJTY I 69 104 ICNTHD IHEADER DS I 1 20 HUSRSP I 1 10 HSPCNM |
|
I 11 20 HSPCLB I 21 40 HSAVF I 21 30 HSFNAM I 31 40 HSFLIB I 41 76 HCNTHD ILIST DS I 1 10 FILNAM I 11 20 SAVLIB I 21 30 MBRNAM I 31 40 FILTYP I 41 48 SAVDAT I B 49 520NBRMBR |
