| 
**************************************************************** * * * Data Structure For API: QNMRGTI * * Format: APPN0100 * * Language: Cobol * * * **************************************************************** 01 APPN0100-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). 01 APPN0100-HEADER. 05 USER-SPACE-USED. 10 USER-SPACE-NAME-USED PIC X(10). 10 USER-SPACE-LIB-USED PIC X(10). 05 NUMBER-OF-NODES-RETURNED PIC S9(9) COMP-4. 05 TIMESTAMP-WHEN-RETURNED PIC X(08). 01 APPN0100-ENTRY. 05 ENTRY-TYPE PIC X(10). 05 ENTRY-ID PIC X(02). 05 ENTRY-TIMESTAMP PIC X(08). |
|
05 NODE-NAME. 10 NODE-NETWORK-ID PIC X(08). 10 NODE-CONTROL-POINT PIC X(08). 05 NUMBER-OF-ASSOCIATED-TGS PIC S9(9) COMP-4. 05 NODE-DATA-VALID PIC X(01). 05 NODE-TYPE PIC X(03). 05 NODE-ATTRIBUTES PIC X(08). 05 DESTINATION-NODE. 10 DEST-NETWORK-ID PIC X(08). 10 DEST-CONTROL-POINT PIC X(08). 05 TG-NUMBER PIC S9(9) COMP-4. 05 TG-CHARACTERISTICS PIC X(20). 05 LENGTH-OF-DLC-INFO PIC S9(9) COMP-4. 05 DLC-SIGNALLING-INFO PIC X(16). 05 CD-OBJECT-NAME PIC X(10). 05 TG-FLAGS PIC X(01). 05 RESERVED PIC X(05). **************************************************************** * * * Data Structure for API: QNMRGTI * * Format: APPN0100 * * Language: RPG * |
|
* * **************************************************************** IINPUT DS I 1 10 USNAMI I 11 20 USLIBI I 21 28 FORMAT IHEADER DS I 1 10 USNAMH I 11 20 USLIBH I B 21 240NUMNOD I 25 32 RPTTOD IENTRY DS I 1 10 ENTTYP I 11 12 ENTID I 13 20 ENTTOD I 21 28 NODNET I 29 36 NODCP I B 37 400NUMTGS I 41 41 NODVAL I 42 44 NODTYP I 45 52 NODATT I 53 60 TGNET |
|
I 61 68 TGCP I B 69 720TGNUM I 73 92 TGCHAR I B 93 960DLCLEN I 97 112 DLCINF I 113 122 CDOBJ I 123 123 TGFLGS I 124 128 RESRV |
