| 
**************************************************************** * * * Data Structure For API: QPZRTVFX * * Format: PTFR0100 * * Language: Cobol * * * **************************************************************** 01 PTFR0100. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 OFFSET-TO-ADDITIONAL PIC S9(9) COMP-4. 05 PRODUCT-ID PIC X(07). 05 PTF-ID PIC X(07). 05 REL-ID PIC X(06). 05 PRODUCT-OPTION PIC X(04). 05 LOAD-ID PIC X(04). 05 LOADED-STATUS PIC X(01). 05 COVER-STATUS PIC X(01). 05 ONORDER-STATUS PIC X(01). 05 SAVEFILE-STATUS PIC X(01). 05 FILE-NAME PIC X(10). 05 LIBRARY-NAME PIC X(10). |
|
05 PTF-TYPE PIC X(01). **************************************************************** * Data Structure for API: QPZRTVFX * * Format name : PTFR0100 * * Language : RPG * **************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTAVA I B 9 120OFFSET I 13 19 PRODCT I 20 26 PTFID I 27 32 RELEAS I 33 36 OPTION I 37 40 LOAD I 41 41 LODSTS I 42 42 COVSTS I 43 43 ORDSTS I 44 44 SAVSTS I 45 54 FILENM I 55 64 LIBNME I 65 65 TYPE |
|
**************************************************************** * * * Data Structure For API: QPZRTVFX * * Format: PTFR0200 * * Language: Cobol * * * **************************************************************** 01 PTFR0200. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 OFFSET-TO-ADDITIONAL PIC S9(9) COMP-4. 05 PRODUCT-ID PIC X(07). 05 PTF-ID PIC X(07). 05 REL-ID PIC X(06). 05 PRODUCT-OPTION PIC X(04). 05 LOAD-ID PIC X(04). 05 LOADED-STATUS PIC X(01). 05 COVER-STATUS PIC X(01). 05 ONORDER-STATUS PIC X(01). 05 SAVEFILE-STATUS PIC X(01). 05 FILE-NAME PIC X(10). 05 LIBRARY-NAME PIC X(10). |
|
05 PTF-TYPE PIC X(01). 01 ADDITIONAL-HEADER. 05 OFFSET-FIRST PIC S9(9) COMP-4. 05 NUMBER-OF-RECORDS PIC S9(9) COMP-4. 05 SIZE-OF-RECORD PIC S9(9) COMP-4. 01 PTFR0200-COVERRECORD. 05 NLV PIC X(04). 05 C-FILE-NAME PIC X(10). 05 C_LIBRARY-NAME PIC X(10). 05 MEMBER-NAME PIC X(10). **************************************************************** * Data structure for API: QPZRTVFX * * Format : PTFR0200 * * Language : RPG * **************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTAVA I B 9 120OFFSET I 13 19 PRODCT I 20 26 PTFID I 27 32 RELEAS |
|
I 33 36 OPTION I 37 40 LOAD I 41 41 LODSTS I 42 42 COVSTS I 43 43 ORDSTS I 44 44 SAVSTS I 45 54 FILENM I 55 64 LIBNME I 65 65 TYPE IHEADER DS I B 1 40COVOFF I B 5 80NUMBER I B 9 120LENGTH ILIST DS I 1 4 NLV I 5 14 FILE I 15 24 LIB I 25 34 MEM **************************************************************** * * * Data Structure For API: QPZRTVFX * * Format: PTFR0300 * |
|
* Language: Cobol * * * **************************************************************** 01 PTFR0300. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 OFFSET-TO-ADDITIONAL PIC S9(9) COMP-4. 05 PRODUCT-ID PIC X(07). 05 PTF-ID PIC X(07). 05 REL-ID PIC X(06). 05 PRODUCT-OPTION PIC X(04). 05 LOAD-ID PIC X(04). 05 LOADED-STATUS PIC X(01). 05 COVER-STATUS PIC X(01). 05 ONORDER-STATUS PIC X(01). 05 SAVEFILE-STATUS PIC X(01). 05 FILE-NAME PIC X(10). 05 LIBRARY-NAME PIC X(10). 05 PTF-TYPE PIC X(01). 01 ADDITIONAL-HEADER. 05 OFFSET-FIRST PIC S9(9) COMP-4. 05 NUMBER-OF-RECORDS PIC S9(9) COMP-4. |
|
05 SIZE-OF-RECORD PIC S9(9) COMP-4. 01 PTFR0300-PREREQRECORD. 05 P-PRODUCT-ID PIC X(07). 05 P-PTF-ID PIC X(07). 05 P-REL PIC X(06). **************************************************************** * Data Structure for API: QPZRTVFX * * Format : PTFR0300 * * Language: RPG * **************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTAVA I B 9 120OFFSET I 13 19 PRODCT I 20 26 PTFID I 27 32 RELEAS I 33 36 OPTION I 37 40 LOAD I 41 41 LODSTS I 42 42 COVSTS I 43 43 ORDSTS |
|
I 44 44 SAVSTS I 45 54 FILENM I 55 64 LIBNME I 65 65 TYPE IHEADER DS I B 1 40PREOFF I B 5 80NUMBER I B 9 120LENGTH ILIST DS I 1 7 PRODUC I 8 14 PTFNUM I 15 20 REL |
