| 
**************************************************************** * * * Data Structure For API: QFVLSTNL * * Format: NODL0100 * * Language: Cobol * * * **************************************************************** 01 NODL0100-INPUT. 05 USER-SPACE-SPECIFIED. 10 USER-SPACE-NAME-SPECIFIED PIC X(10). 10 USER-SPACE-LIB-SPECIFIED PIC X(10). 05 FORMAT-NAME-SPECIFIED PIC X(08). 05 NODE-LIST-SPECIFIED. 10 NODE-LIST-NAME-SPECIFIED PIC X(10). 10 NODE-LIST-LIB-SPECIFIED PIC X(10). 01 NODL0100-HEADER. 05 USER-SPACE-USED. 10 USER-SPACE-NAME-USED PIC X(10). 10 USER-SPACE-LIB-USED PIC X(10). 05 NODE-LIST-USED. 10 NODE-LIST-NAME-USED PIC X(10). 10 NODE-LIST-LIB-USED PIC X(10). |
|
01 NODL0100-ENTRY. 05 NODE-TYPE PIC X(01). 05 NODE-NAME. 10 NODE-NETID PIC X(08). 10 NODE-CPNAME PIC X(08). 10 NODE-RESERVED PIC X(04). 05 TEXT-DESCRIPTION PIC X(50). 05 RESERVED PIC X(01). 05 TEXT-CCSID PIC S9(9) COMP-4. **************************************************************** * * * Data Structure for API: QFVLSTNL * * Format: NODL0100 * * Language: RPG * * * **************************************************************** IINPUT DS I 1 20 QUSSPI I 1 10 USNAMI I 11 20 USLIBI I 21 28 FORMAT I 29 48 QNODLI |
|
I 29 38 NDNAMI I 39 48 NDLIBI IHEADER DS I 1 20 QUSSPF I 1 10 USNAMF I 11 20 USLIBF I 21 40 QNODLF I 21 30 NDNAMF I 31 40 NDLIBF IENTRY DS I 1 1 NODTYP I 2 21 QNODNM I 2 9 NETID I 10 17 CPNAME I 18 21 RSRVD1 I 22 71 TEXT I 72 72 RSRVD2 I B 73 760CCSID |
