| 
**************************************************************** * * * Data Structure For API: QDCRCTLD * * Format: CTLD0100 * * Language: COBOL * * * **************************************************************** 01 CTLD0100-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 NUM-ATTACHED-DEVICES PIC S9(9) COMP-4. 05 DATA-INFO-RTV PIC X(7). 05 TIME-INFO-RTV PIC X(6). 05 CONTROLLER-NAME PIC X(10). 05 CONTROLLER-CATEGORY PIC X(10). 05 ONLINE-AT-IPL PIC X(10). 05 TEXT-DESCRIPTION PIC X(50). 05 EMPTY-FIELD PIC X(3). I**************************************************************** I* * I* Data structure for API: QDCRCTLD * I* Format: CTLD0100 * |
|
I* Langauge: RPG * I* Note(s): * I* * I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I B 9 120NBRDEV I 13 19 DATINF I 20 25 TIMINF I 26 35 CTLNAM I 36 45 CTLCAT I 46 55 ONLINE I 56 105 TXTDSC I 106 108 RESERV **************************************************************** * * * Data Structure For API: QDCRCTLD * * Format: CTLD0200 * * Language: COBOL * * * **************************************************************** |
|
01 CTLD0200-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 NUM-ATTACHED-DEVICES PIC S9(9) COMP-4. 05 DATA-INFO-RTV PIC X(7). 05 TIME-INFO-RTV PIC X(6). 05 CONTROLLER-NAME PIC X(10). 05 CONTROLLER-CATEGORY PIC X(10). 05 ONLINE-AT-IPL PIC X(10). 05 TEXT-DESCRIPTION PIC X(50). 05 EMPTY-FIELD PIC X(3). 05 OFFSET-LST-DEV-BASIC-INFO PIC S9(9) COMP-4. 05 ENTRY-LEN-LST-DEV-BASIC-INFO PIC S9(9) COMP-4. * 05 LST-ATTACHED-DEVICES-WITH-BASIC-INFO * 10 DEVICE-NAME OCCURS 0-N TIMES PIC X(10). * 10 DEVICE-CAT OCCURS 0-N TIMES PIC X(10). * 10 DEVICE-TYPE OCCURS 0-N TIMES PIC X(10). * 10 DEVICE-DESC OCCURS 0-N TIMES PIC X(50). I**************************************************************** I* * I* Data structure for API: QDCRCTLD * I* Format: CTLD0200 * |
|
I* Language: RPG * I* Note(s): * I* * I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I B 9 120NBRDEV I 13 19 DATINF I 20 25 TIMINF I 26 35 CTLNAM I 36 45 CTLCAT I 46 55 ONLINE I 56 105 TXTDSC I 106 108 RESERV I B 109 1120OFFDEV I B 113 1160LENDEV I* (List of attatched devices with basic information. Following I* four entries are repeated 0-n times.) I* CHAR(10) Device name DEVNAM I* CHAR(10) Device category DEVCAT I* CHAR(10) Device type DEVTYP |
|
I* CHAR(50) Device text DEVTXT **************************************************************** * * * Data Structure For API: QDCRCTLD * * Format: CTLD0300 * * Language: COBOL * * * **************************************************************** 01 CTLD0300-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 NUM-ATTACHED-DEVICES PIC S9(9) COMP-4. 05 DATA-INFO-RTV PIC X(7). 05 TIME-INFO-RTV PIC X(6). 05 CONTROLLER-NAME PIC X(10). 05 CONTROLLER-CATEGORY PIC X(10). 05 ONLINE-AT-IPL PIC X(10). 05 TEXT-D PIC X(50). 05 EMPTY-FIELD PIC X(3). 05 MAX-FRAME-SIZE PIC S9(9) COMP-4. 05 IDLC-DFT-WINDOW-SIZE PIC S9(9) COMP-4. 05 IDLC-FRAME-RETRY PIC S9(9) COMP-4. |
|
05 IDLC-REPONSE-TIMER PIC S9(9) COMP-4. 05 IDLC-CONNECT-RETRY PIC S9(9) COMP-4. 05 PREDIAL-DELAY PIC S9(9) COMP-4. 05 REDIAL-DELAY PIC S9(9) COMP-4. 05 DIAL-RETRIES PIC S9(9) COMP-4. 05 DISCON-TIMER-MIN-CON PIC S9(9) COMP-4. 05 DISCON-TIMER-DISCON-DELAY PIC S9(9) COMP-4. 05 SHM-DISCONNECT-LIMIT PIC S9(9) COMP-4. 05 SHM-DISCONNECT-TIMER PIC S9(9) COMP-4. 05 SDLC-POLL-LIMIT PIC S9(9) COMP-4. 05 SDLC-OUT-LIMIT PIC S9(9) COMP-4. 05 SDLC-CONNECT-POLL-RETRY PIC S9(9) COMP-4. 05 SDLC-NDM-POLL-TIMER PIC S9(9) COMP-4. 05 LAN-FRAME-RETRY PIC S9(9) COMP-4. 05 LAN-CONNECTION-RETRY PIC S9(9) COMP-4. 05 LAN-RESPONSE-TIMER PIC S9(9) COMP-4. 05 LAN-CONNECTION-TIMER PIC S9(9) COMP-4. 05 LAN-ACKNOWLEDGEMENT-TIMER PIC S9(9) COMP-4. 05 LAN-INACTIVITY-TIMER PIC S9(9) COMP-4. 05 LAN-ACKNOWLEDGEMENT-FREQUENCY PIC S9(9) COMP-4. 05 LAN-MAX-OUTSTANDING-FRAMES PIC S9(9) COMP-4. 05 LAN-ACCESS-PRIOITY PIC S9(9) COMP-4. |
|
05 LAN-WINDOW-STEP PIC S9(9) COMP-4. 05 DFT-PACKET-SIZE-TRANSMIT PIC S9(9) COMP-4. 05 DFT-PACKET-SIZE-RECEIVE PIC S9(9) COMP-4. 05 NEGOTIATE-PACKET-SIZE-TRANSMIT PIC S9(9) COMP-4. 05 NEGOTIATE-PACKET-SIZE-RECEIVE PIC S9(9) COMP-4. 05 DFT-WINDOW-SIZE-TRANSMIT PIC S9(9) COMP-4. 05 DFT-WINDOW-SIZE-RECEIVE PIC S9(9) COMP-4. 05 NEGOTIATE-WINDOW-SIZE-TRANSMIT PIC S9(9) COMP-4. 05 NEGOTIATE-WINDOW-SIZE-RECEIVE PIC S9(9) COMP-4. 05 X25-FRAME-RETRY PIC S9(9) COMP-4. 05 X25-CONNECTION-RETRY PIC S9(9) COMP-4. 05 X25-RESPONSE-TIMER PIC S9(9) COMP-4. 05 X25-CONNECTION-TIMER PIC S9(9) COMP-4. 05 X25-DELAYED-CONNECTION-TIMER PIC S9(9) COMP-4. 05 X25-ACKNOWLEDGEMENT-TIMER PIC S9(9) COMP-4. 05 X25-INACTIVITY-TIMER PIC S9(9) COMP-4. 05 APPN-TRANSMISSION-GROUP-NUM PIC S9(9) COMP-4. 05 AUTODELETE-DEVICE PIC S9(9) COMP-4. 05 USER-DEFINED-1 PIC S9(9) COMP-4. 05 USER-DEFINED-2 PIC S9(9) COMP-4. 05 USER-DEFINED-3 PIC S9(9) COMP-4. 05 RECOVERY-LIMIT-COUNT PIC S9(9) COMP-4. |
|
05 RECOVERY-LIMIT-TIME PIC S9(9) COMP-4. 05 OFFSET-LST-DEVICE PIC S9(9) COMP-4. 05 ENTRY-LEN-LST-DEVICE PIC S9(9) COMP-4. 05 OFFSET-LST-SW-LINES PIC S9(9) COMP-4. 05 NUM-ENTRY-LST-SW-LINES PIC S9(9) COMP-4. 05 ENTRY-LEN-LST-SW-LINES PIC S9(9) COMP-4. 05 LINK-TYPE PIC X(10). 05 CONTROLLER-TYPE PIC X(10). 05 SWITCHED-CONNECTION PIC X(10). 05 SHORT-HOLD-MODE-SHM PIC X(10). 05 SWITCHED-NET-BACKUP PIC X(10). 05 ACTIVATE-SW-NET-BACKUP PIC X(10). 05 APPN-CAPABLE PIC X(10). 05 ATTACHED-NS-LINE-NAME PIC X(10). 05 CHAR-CODE PIC X(10). 05 REMOTE-NET-ID PIC X(10). 05 REMOTE-CONTROL-POINT-NAME PIC X(10). 05 EXCHANGE-ID PIC X(10). 05 SYS-SERVICE-CONTROL-POINT-ID PIC X(12). 05 INITIAL-CONNECTION PIC X(10). 05 DIAL-INITIATION PIC X(10). 05 CONNECTION-NUM PIC X(32). |
|
05 ANSWER-NUM PIC X(10). 05 ACTIVATE-X25-NET-ADDR PIC X(10). 05 CONNECTION-LST PIC X(10). 05 CONNECTION-LST-ENTRY PIC X(10). 05 SWITCHED-DISCONNECT PIC X(10). 05 DATA-LINK-ROLE PIC X(10). 05 STATION-ADDR PIC X(10). 05 SDLC-POLL-PRIORITY PIC X(10). 05 LAN-REMOTE-ADAPTER-ADDR PIC X(12). 05 DEST-SERVICE-ACCESS-POINT PIC X(10). 05 SOURCE-SERVICE-ACCESS-POINT PIC X(10). 05 X25-NET-LVL PIC X(10). 05 X25-LINK-PROTOCOL PIC X(10). 05 X25-LOGICAL-CHANNEL-ID PIC X(10). 05 X25-CONNECTION-PASSWORD PIC X(10). 05 X25-SW-LINE-SELECTION PIC X(10). 05 X25-USER-GROUP-ID PIC X(10). 05 X25-REVERSE-CHARGING PIC X(10). 05 APPC-CP-SESSION-SUPPORT PIC X(10). 05 APPN-NODE-TYPE PIC X(10). 05 APPN-MIN-SW-STATUS PIC X(10). 05 MODEL-CONTROLLER-DESCRIPTION PIC X(10). |
|
05 CONNECTION-NET-ID PIC X(10). 05 CONNECTION-NET-CP-NAME PIC X(10). 05 CONTROL-OWNER PIC X(10). 05 USER-FACILITIES PIC X(218). * 05 LST-ATTACHED-DEVICES * 10 ATTACHED-DEV-NAME OCCURS 0-N TIMES PIC X(10). * 10 EMPTY-FILED3 OCCURS 0-N TIMES PIC X(2). * 05 LST-SW-LINES * 10 SWITCHED-LINE-NAME OCCURS 0-N TIMES PIC X(10). * 10 EMPTY-FIELD4 OCCURS 0-N TIMES PIC X(2). I**************************************************************** I* * I* Data structure for API: QDCRCTLD * I* Format: CTLD0300 * I* Language: RPG * I* Notes(s): * I* * I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I B 9 120NBRDEV |
|
I 13 19 DATINF I 20 25 TIMINF I 26 35 CTLNAM I 36 45 CTLCAT I 46 55 ONLINE I 56 105 TXTDSC I 106 108 RESERV I B 109 1120MAXFRM I B 113 1160IDLCWS I B 117 1200IDLCFR I B 121 1240IDLCRT I B 125 1280IDLCCR I B 129 1320PREDLY I B 133 1360REDDLY I B 137 1400RETRYS I B 141 1440MINCNN I B 145 1480DCTDLY I B 149 1520SHMLMT I B 153 1560SHMTIM I B 157 1600SDLCPL I B 161 1640SDLCOL I B 165 1680SDLCPR |
|
I B 169 1720SDLCPT I B 173 1760LANFR I B 177 1800LANCR I B 181 1840LANRT I B 185 1880LANCT I B 189 1920LANAT I B 193 1960LANIT I B 197 2000LANAF I B 201 2040LANMF I B 205 2080LANAP I B 209 2120LANWS I B 213 2160DPSTRN I B 217 2200DPSRCV I B 221 2240NPSTRN I B 225 2280NPSRCV I B 229 2320DWSTRN I B 233 2360DWSRCV I B 237 2400NWSTRN I B 241 2440NWSRCV I B 245 2480X25FR I B 249 2520X25CR I B 253 2560X25RT |
|
I B 257 2600X25CT I B 261 2640X25DCT I B 265 2680X25AT I B 269 2720X25IT I B 273 2760APPNGN I B 277 2800ATDDEV I B 281 2840USR1 I B 285 2880USR2 I B 289 2920USR3 I B 293 2960CNTLMT I B 297 3000TIMINT I B 301 3040OFFDEV I B 305 3080LENDEV I B 309 3120OFFSWL I B 313 3160NUMSWL I B 317 3200LENSWL I 321 330 LNKTYP I 331 340 CTLTYP I 341 350 SWCNN I 351 360 SHM I 361 370 SWNB I 371 380 ASWNB |
|
I 381 390 APPNC I 391 400 NSWNAM I 401 410 CHRCDE I 411 420 RNETID I 421 430 RCPNAM I 431 440 XID I 441 452 SRVCPI I 453 462 INLCNN I 463 472 DILINT I 473 504 CNNNBR I 505 514 ANSNBR I 515 524 AX25NA I 525 534 CNNLST I 535 544 CNNENT I 545 554 SWDCT I 555 564 DTALNK I 565 574 STNADR I 575 584 SDLCPP I 585 596 LANRAA I 597 606 DSTSAP I 607 616 SRCSAP I 617 626 X25LVL |
|
I 627 636 X25LNK I 637 646 X25LOG I 647 656 X25PWD I 657 666 X25SLT I 667 676 X25GRP I 677 686 X25REV I 687 696 APPCSS I 697 706 APPNNT I 707 716 APPNSS I 717 726 MDLDSC I 727 736 CNNID I 737 746 CNNNAM I 747 756 CTLOWN I 757 974 USRFAC I 975 976 RESRVD I* (List of attatched devices. Following two entries are I* repeated 0-n times.) I* CHAR(10) Attatched device name DEVNAM I* CHAR(2) (Reserved) DEVRSV I* I* (List of switched lines. Following two entries are I* repeated 0-n times.) |
|
I* CHAR(10) Switched line name SWLNAM I* CHAR(2) (Reserved) SWLRSV **************************************************************** * * * Data Structure For API: QDCRCTLD * * Format: CTLD0400 * * Language: COBOL * * * **************************************************************** 01 CTLD0400-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 NUM-ATTACHED-DEVICES PIC S9(9) COMP-4. 05 DATA-INFO-RTV PIC X(7). 05 TIME-INFO-RTV PIC X(6). 05 CONTROLLER-NAME PIC X(10). 05 CONTROLLER-CATEGORY PIC X(10). 05 ONLINE-AT-IPL PIC X(10). 05 TEXT-D PIC X(50). 05 EMPTY-FIELD PIC X(3). 05 PREDIAL-DELAY PIC S9(9) COMP-4. 05 REDIAL-DELAY PIC S9(9) COMP-4. |
|
05 DIAL-RETRIES PIC S9(9) COMP-4. 05 FILE-TRANSFER-ACK-TIMER PIC S9(9) COMP-4. 05 FILE-TRANSFER-RETRY PIC S9(9) COMP-4. 05 DFT-PACKET-SIZE-TRANSMIT PIC S9(9) COMP-4. 05 DFT-PACKET-SIZE-RECEIVE PIC S9(9) COMP-4. 05 NEGOTIATE-PACKET-SIZE-TRANSMIT PIC S9(9) COMP-4. 05 NEGOTIATE-PACKET-SIZE-RECEIVE PIC S9(9) COMP-4. 05 DFT-WINDOW-SIZE-TRANSMIT PIC S9(9) COMP-4. 05 DFT-WINDOW-SIZE-RECEIVE PIC S9(9) COMP-4. 05 NEGOTIATE-WINDOW-SIZE-TRANSMIT PIC S9(9) COMP-4. 05 NEGOTIATE-WINDOW-SIZE-RECEIVE PIC S9(9) COMP-4. 05 RECOVERY-LIMIT-COUNT PIC S9(9) COMP-4. 05 RECOVERY-LIMIT-TIME PIC S9(9) COMP-4. 05 OFFSET-LST-ATTACHED-DEV PIC S9(9) COMP-4. 05 ENTRY-LEN-ATTACHED-DEV PIC S9(9) COMP-4. 05 OFFSET-LST-SW-LINE PIC S9(9) COMP-4. 05 NUM-ENTRY-LST-SW-LINE PIC S9(9) COMP-4. 05 ENTRY-LEN-LST-SW-LINE PIC S9(9) COMP-4. 05 LINK-TYPE PIC X(10). 05 SWITCHED-CONNECTION PIC X(10). 05 SWITCHED-NET-BACKUP PIC X(10). 05 ACTIVE-SW-NET-BACKUP PIC X(10). |
|
05 ATTACHED-NS-LINE-NAME PIC X(10). 05 INITIAL-CONNECTION PIC X(10). 05 CONNECTION-NUM PIC X(32). 05 ANSWER-NUM PIC X(10). 05 ACTIVATE-X25-NET-ADDR PIC X(10). 05 SWITCHED-DISCONNECT PIC X(10). 05 REMOTE-VERIFY PIC X(10). 05 LOCAL-LOCATION-NAME PIC X(10). 05 LOCAL-ID PIC X(10). 05 PAD-EMULATION PIC X(10). 05 X25-LOGICAL-CHANNEL-ID PIC X(10). 05 X25-SW-LINE-SELECTION PIC X(10). 05 X25-USER-GROUP-ID PIC X(10). 05 X25-REVERSE-CHARGING PIC X(10). 05 USER-FACILITIES PIC X(218). * 05 LST-ATTACHED-DEVICES * 10 ATTACHED-DEV-NAME OCCURS 0-N TIMES PIC X(10). * 05 LST-SW-LINES * 10 SWITCHED-LINE-NAME OCCURS 0-N TIMES PIC X(10). I**************************************************************** I* * I* Data structure for API: QDCRCTLD * |
|
I* Format: CTLD0400 * I* Langauge: RPG * I* Note(s): * I* * I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I B 9 120NBRDEV I 13 19 DATINF I 20 25 TIMINF I 26 35 CTLNAM I 36 45 CTLCAT I 46 55 ONLINE I 56 105 TXTDSC I 106 108 RESERV I B 109 1120PREDLY I B 113 1160REDDLY I B 117 1200DILTRY I B 121 1240TRNTIM I B 125 1280TRNRTY I B 129 1320DPSTRN |
|
I B 133 1360DPSRCV I B 137 1400NPSTRN I B 141 1440NPSRCV I B 145 1480DWSTRN I B 149 1520DWSRCV I B 153 1560NWSTRN I B 157 1600NWSRCV I B 161 1640CNTLMT I B 165 1680TIMINT I B 169 1720OFFDEV I B 173 1760LENDEV I B 177 1800OFFSWL I B 181 1840NBRSWL I B 185 1880LENSWL I 189 198 LNKTYP I 199 208 SWCNN I 209 218 SWNB I 219 228 ASWNB I 229 238 NSWNAM I 239 248 INLCNN I 249 280 CNNNBR I 281 290 ANSNBR |
|
I 291 300 AX25NA I 301 310 SWDCT I 311 320 RMTVFY I 321 330 LCLNAM I 331 340 LCLID I 341 350 PADEML I 351 360 X25LOG I 361 370 X25SLT I 371 380 X25GRP I 381 390 X25REV I 391 607 USRFAC I* I* (List of attatched devices. Following entries are I* repeated 0-n times.) I* I* CHAR(10) Attatched device name DEVNAM I* CHAR(2) (reserved) DEVRSV I* I* (List of switched lines. Following entries are I* repeated 0-n times.) I* I* CHAR(10) Switched line name SWLNAM |
|
I* CHAR(2) (reserved) SWLRSV **************************************************************** * * * Data Structure For API: QDCRCTLD * * Format: CTLD0500 * * Language: COBOL * * * **************************************************************** 01 CTLD0500-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 NUM-ATTACHED-DEVICES PIC S9(9) COMP-4. 05 DATA-INFO-RTV PIC X(7). 05 TIME-INFO-RTV PIC X(6). 05 CONTROLLER-NAME PIC X(10). 05 CONTROLLER-CATEGORY PIC X(10). 05 ONLINE-AT-IPL PIC X(10). 05 TEXT-D PIC X(50). 05 EMPTY-FIELD PIC X(3). 05 PREDIAL-DELAY PIC S9(9) COMP-4. 05 REDIAL-DELAY PIC S9(9) COMP-4. 05 DIAL-RETRIES PIC S9(9) COMP-4. |
|
05 RECOVERY-LIMIT-COUNT PIC S9(9) COMP-4. 05 RECOVERY-LIMIT-TIME PIC S9(9) COMP-4. 05 OFFSET-LST-ATTACHED-DEV PIC S9(9) COMP-4. 05 ENTRY-LEN-LST-ATTACHED-DEV PIC S9(9) COMP-4. 05 OFFSET-LST-SW-LINES PIC S9(9) COMP-4. 05 NUM-ENTRY-LST-SW-LINES PIC S9(9) COMP-4. 05 ENTRY-LEN-LST-SW-LINES PIC S9(9) COMP-4. 05 OFFSET-LST-REMOTE-IDS PIC S9(9) COMP-4. 05 NUM-ENTRY-LST-REMOTE-IDS PIC S9(9) COMP-4. 05 ENTRY-LEN-LST-REMOTE-IDS PIC S9(9) COMP-4. 05 CONNECTION-TYPE PIC X(10). 05 SWITCHED-NET-BACKUP PIC X(10). 05 ACTIVATE-SW-NET-BACKUP PIC X(10). 05 ATTACH-NS-LINE-NAME PIC X(10). 05 APP-TYPE PIC X(10). 05 INITIAL-CONNECTION PIC X(10). 05 CONNECTION-NUM PIC X(32). 05 LOCAL-ID PIC X(10). 05 RJE-HOST-TYPE PIC X(10). 05 RJE-HOST-SIGNON-LOGON PIC X(80). * 05 LST-ATTACHED-DEVICES * 10 ATTACHED-DEV-NAME OCCURS 0-N TIMES PIC X(10). |
|
* 10 EMPTY-FIELD2 OCCURS 0-N TIMES PIC X(2). * 05 LST-SW-LINES * 10 SWITCHED-LINE-NAME OCCURS 0-N TIMES PIC X(10). * 10 EMPTY-FIELD3 OCCURS 0-N TIMES PIC X(2). * 05 LST-REMOTE-ID * 10 REMOTE-ID OCCURS 0-N TIMES PIC X(10). * 10 EMPTY-FIELD4 OCCURS 0-N TIMES PIC X(2). I**************************************************************** I* * I* Data structure for API: QDCRCTLD * I* Format: CTLD0500 * I* Language: RPG * I* Note(s): * I* * I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I B 9 120NBRDEV I 13 19 DATINF I 20 25 TIMINF I 26 35 CTLNAM |
|
I 36 45 CTLCAT I 46 55 ONLINE I 56 105 TXTDSC I 106 108 RESERV I B 109 1120PREDLY I B 113 1160REDDLY I B 117 1200DILTRY I B 121 1240CNTLMT I B 125 1280TIMINT I B 129 1320OFFDEV I B 133 1360LENDEV I B 137 1400OFFSWL I B 141 1440NBRSWL I B 145 1480LENSWL I B 149 1520OFFRID I B 153 1560NBRRID I B 157 1600LENRID I 161 170 CNNTYP I 171 180 SWNB I 181 190 ASWNB I 191 200 NSWNAM I 201 210 APPTYP |
|
I 211 220 INLCNN I 221 252 CNNNBR I 253 262 LCLID I 263 272 RJETYP I 273 352 RJELOG I* I* (List of attatched devices. Following two entries are repeated I* 0-n times.) I* CHAR(10) Attatched device name DEVNAM I* CHAR(2) (Reserved) DEVRSV I* I* (List of switched lines. Following two entries are repeated I* 0-n times.) I* CHAR(10) Switched line name SWLNAM I* CHAR(2) (Reserved) SWLRSV I* I* (List of remote identifiers. Following two entries are repeated I* 0-n times.) I* CHAR(10) Remote indentifier RMTID I* CHAR(2) (Reserved) RMTRSV **************************************************************** * * |
|
* Data Structure For API: QDCRCTLD * * Format: CTLD0600 * * Language: COBOL * * * **************************************************************** 01 CTLD0600-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 NUM-ATTACHED-DEVICES PIC S9(9) COMP-4. 05 DATA-INFO-RTV PIC X(7). 05 TIME-INFO-RTV PIC X(6). 05 CONTROLLER-NAME PIC X(10). 05 CONTROLLER-CATEGORY PIC X(10). 05 ONLINE-AT-IPL PIC X(10). 05 TEXT-D PIC X(50). 05 EMPTY-FIELD PIC X(3). 05 MAX-FRAME-SIZE PIC S9(9) COMP-4. 05 PREDIAL-DELAY PIC S9(9) COMP-4. 05 REDIAL-DELAY PIC S9(9) COMP-4. 05 DIAL-RETRIES PIC S9(9) COMP-4. 05 SHM-DISCONNECT-LIMIT PIC S9(9) COMP-4. 05 SHM-DISCONNECT-TIMER PIC S9(9) COMP-4. |
|
05 SDLC-POLL-LIMIT PIC S9(9) COMP-4. 05 SDLC-OUT-LIMIT PIC S9(9) COMP-4. 05 SDLC-CONNECT-POLL-RETRY PIC S9(9) COMP-4. 05 SDLC-NDM-POLL-TIMER PIC S9(9) COMP-4. 05 LAN-FRAME-RETRY PIC S9(9) COMP-4. 05 LAN-CONNECTION-RETRY PIC S9(9) COMP-4. 05 LAN-RESPONSE-TIMER PIC S9(9) COMP-4. 05 LAN-CONNECTION-TIMER PIC S9(9) COMP-4. 05 LAN-ACKNOWLEDGEMENT-TIMER PIC S9(9) COMP-4. 05 LAN-ACTIVITY-TIMER PIC S9(9) COMP-4. 05 LAN-ACKNOWLEDGEMENT-FREQUENCY PIC S9(9) COMP-4. 05 LAN-MAX-OUTSTANDING-FRAMES PIC S9(9) COMP-4. 05 LAN-ACCESS-PRIORITY PIC S9(9) COMP-4. 05 LAN-WINDOW-STEP PIC S9(9) COMP-4. 05 DFT-PACKET-SIZE-TRANSMIT PIC S9(9) COMP-4. 05 DFT-PACKET-SIZE-RECEIVE PIC S9(9) COMP-4. 05 NEGOTIATE-PACKET-SIZE-TRANSMIT PIC S9(9) COMP-4. 05 NEGOTIATE-PACKET-SIZE-RECEIVE PIC S9(9) COMP-4. 05 DFT-WINDOW-SIZE-TRANSMIT PIC S9(9) COMP-4. 05 DFT-WINDOW-SIZE-RECEIVE PIC S9(9) COMP-4. 05 NEGOTIATE-WINDOW-SIZE-TRANSMIT PIC S9(9) COMP-4. 05 NEGOTIATE-WINDOW-SIZE-RECEIVE PIC S9(9) COMP-4. |
|
05 X25-FRAME-RETRY PIC S9(9) COMP-4. 05 X25-CONNECTION-RETRY PIC S9(9) COMP-4. 05 X25-RESPONSE-TIMER PIC S9(9) COMP-4. 05 X25-CONNECTION-TIMER PIC S9(9) COMP-4. 05 X25-DELAYED-CONNECTION-TIMER PIC S9(9) COMP-4. 05 X25-ACKNOWLEDGEMENT-TIMER PIC S9(9) COMP-4. 05 X25-INACTIVITY-TIMER PIC S9(9) COMP-4. 05 RECOVERY-LIMITS-COUNT PIC S9(9) COMP-4. 05 RECOVERY-LIMITS-TIME PIC S9(9) COMP-4. 05 OFFSET-LST-ATTACHED-DEV PIC S9(9) COMP-4. 05 ENTRY-LEN-LST-ATTACHED-DEV PIC S9(9) COMP-4. 05 OFFSET-LST-SW-LINES PIC S9(9) COMP-4. 05 NUM-ENTRY-LST-SW-LINES PIC S9(9) COMP-4. 05 ENTRY-LEN-LST-SW-LINES PIC S9(9) COMP-4. 05 CONTROLLER-TYPE PIC X(10). 05 CONTROLLER-MODEL PIC X(10). 05 LINK-TYPE PIC X(10). 05 SWITCHED-CONNECTION PIC X(10). 05 SHORT-HOLD-MODE-SHM PIC X(10). 05 SWITCHED-NET-BACKUP PIC X(10). 05 ACTIVATE-SW-NET-BACKUP PIC X(10). 05 ATTACHED-NS-LINE-NAME PIC X(10). |
|
05 CHAR-CODE PIC X(10). 05 EXCHANGE-ID PIC X(10). 05 SYS-SERVICE-CONTROL-POINT-ID PIC X(12). 05 INITIAL-CONNECTION PIC X(10). 05 CONNECTION-NUM PIC X(32). 05 ANSWER-NUM PIC X(10). 05 ACTIVATE-X25-NET-ADDR PIC X(10). 05 SWITCHED-DISCONNECT PIC X(10). 05 STATION-ADDR PIC X(10). 05 SDLC-POLL-PRIORITY PIC X(10). 05 LAN-REMOTE-ADAPTER-ADDR PIC X(12). 05 DEST-SERVICE-ACCESS-POINT PIC X(10). 05 SOURCE-SERVICE-ACCESS-POINT PIC X(10). 05 X25-NET-LVL PIC X(10). 05 X25-LINK-PROTOCOL PIC X(10). 05 X25-LOGICAL-CHANNEL-ID PIC X(10). 05 X25-CONNECTION-PASSWORD PIC X(10). 05 X25-SW-LINE-SELECTION PIC X(10). 05 X25-USER-GROUP-ID PIC X(10). 05 X25-REVERSE-CHARGING PIC X(10). 05 USER-FACILITIES PIC X(218). * 05 LST-ATTACHED-DEVICES |
|
* 10 ATTACHED-DEV-NAME OCCURS 0-N TIMES PIC X(10). * 10 EMPTY-FILED3 OCCURS 0-N TIMES PIC X(2). * 05 LST-SW-LINES * 10 SWITCHED-LINE-NAME OCCURS 0-N TIMES PIC X(10). * 10 EMPTY-FIELD4 OCCURS 0-N TIMES PIC X(2). I**************************************************************** I* * I* Data structure for API: QDCRCTLD * I* Format: CTLD0600 * I* Language: RPG * I* Note(s): * I* * I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I B 9 120NBRDEV I 13 19 DATINF I 20 25 TIMINF I 26 35 CTLNAM I 36 45 CTLCAT I 46 55 ONLINE |
|
I 56 105 TXTDSC I 106 108 RESERV I B 109 1120MAXFRM I B 113 1160PREDLY I B 117 1200REDDLY I B 121 1240DILTRY I B 125 1280SHMLMT I B 129 1320SHMTIM I B 133 1360SDLCPL I B 137 1400SDLCOL I B 141 1440SDLCPR I B 145 1480SDLCPT I B 149 1520LANFR I B 153 1560LANCR I B 157 1600LANRT I B 161 1640LANCT I B 165 1680LANAT I B 169 1720LANACT I B 173 1760LANAF I B 177 1800LANOF I B 181 1840LANAP I B 185 1880LANWS |
|
I B 189 1920DPSTRN I B 193 1960DPSRCV I B 197 2000NPSTRN I B 201 2040NPSRCV I B 205 2080DWSTRN I B 209 2120DWSRCV I B 213 2160NWSTRN I B 217 2200NWSRCV I B 221 2240X25FR I B 225 2280X25CR I B 229 2320X25RT I B 233 2360X25CT I B 237 2400X25DCT I B 241 2440X25AT I B 245 2480X25IT I B 249 2520CNTLMT I B 253 2560TIMINT I B 257 2600OFFDEV I B 261 2640LENDEV I B 265 2680OFFSWL I B 269 2720NBRSWL I B 273 2760LENSWL |
|
I 277 286 CTLTYP I 287 296 CTLMDL I 297 306 LNKTYP I 307 316 SWCNN I 317 326 SHM I 327 336 SWNB I 337 346 ASWNB I 347 356 NSWNAM I 357 366 CHRCDE I 367 376 XID I 377 388 SRVCPI I 389 398 INLCNN I 399 430 CNNNBR I 431 440 ANSNBR I 441 450 AX25NA I 451 460 SWDCT I 461 470 STNADR I 471 480 SDLCPP I 481 492 LANRAA I 493 502 DSTPT I 503 512 SRCPT I 513 522 X25LVL |
|
I 523 532 X25LNK I 533 542 X25LOG I 543 552 X25PWD I 553 562 X25SLT I 563 572 X25GRP I 573 582 X25REV I 583 799 USRFAC I* (List of attatched devices. Following two entries are I* repeated 0-n times.) I* CHAR(10) Attatched device name DEVNAM I* CHAR(2) (Reserved) DEVRSV I* I* (List of switched lines. Following two entries are I* repeated 0-n times.) I* CHAR(10) Switched line name SWLNAM I* CHAR(2) (Reserved) SWLRSV **************************************************************** * * * Data Structure For API: QDCRCTLD * * Format: CTLD0700 * * Language: COBOL * * * |
|
**************************************************************** 01 CTLD0700-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 NUM-ATTACHED-DEVICES PIC S9(9) COMP-4. 05 DATA-INFO-RTV PIC X(7). 05 TIME-INFO-RTV PIC X(6). 05 CONTROLLER-NAME PIC X(10). 05 CONTROLLER-CATEGORY PIC X(10). 05 ONLINE-AT-IPL PIC X(10). 05 TEXT-D PIC X(50). 05 EMPTY-FIELD PIC X(3). 05 MAX-FRAME-SIZE PIC S9(9) COMP-4. 05 IDLC-DFT-WINDOW-SIZE PIC S9(9) COMP-4. 05 IDLC-FRAME-RETRY PIC S9(9) COMP-4. 05 IDLC-REPONSE-TIMER PIC S9(9) COMP-4. 05 IDLC-CONNECT-RETRY PIC S9(9) COMP-4. 05 PREDIAL-DELAY PIC S9(9) COMP-4. 05 REDIAL-DELAY PIC S9(9) COMP-4. 05 DIAL-RETRIES PIC S9(9) COMP-4. 05 DISCON-TIMER-MIN-CON PIC S9(9) COMP-4. 05 DISCON-TIMER-DISCON-DELAY PIC S9(9) COMP-4. |
|
05 LAN-FRAME-RETRY PIC S9(9) COMP-4. 05 LAN-CONNECTION-RETRY PIC S9(9) COMP-4. 05 LAN-RESPONSE-TIMER PIC S9(9) COMP-4. 05 LAN-CONNECTION-TIMER PIC S9(9) COMP-4. 05 LAN-ACKNOWLEDGEMENT-TIMER PIC S9(9) COMP-4. 05 LAN-INACTIVITY-TIMER PIC S9(9) COMP-4. 05 LAN-ACKNOWLEDGEMENT-FREQUENCY PIC S9(9) COMP-4. 05 LAN-MAX-OUTSTANDING-FRAMES PIC S9(9) COMP-4. 05 LAN-ACCESS-PRIOITY PIC S9(9) COMP-4. 05 LAN-WINDOW-STEP PIC S9(9) COMP-4. 05 DFT-PACKET-SIZE-TRANSMIT PIC S9(9) COMP-4. 05 DFT-PACKET-SIZE-RECEIVE PIC S9(9) COMP-4. 05 NEGOTIATE-PACKET-SIZE-TRANSMIT PIC S9(9) COMP-4. 05 NEGOTIATE-PACKET-SIZE-TRANSMIT PIC S9(9) COMP-4. 05 DFT-WINDOW-SIZE-TRANSMIT PIC S9(9) COMP-4. 05 DFT-WINDOW-SIZE-RECEIVE PIC S9(9) COMP-4. 05 NEGOTIATE-WINDOW-SIZE-TRANSMIT PIC S9(9) COMP-4. 05 NEGOTIATE-WINDOW-SIZE-TRANSMIT PIC S9(9) COMP-4. 05 X25-FRAME-ENTRY PIC S9(9) COMP-4. 05 X25-RESPONSE-TIMER PIC S9(9) COMP-4. 05 X25-ACKNOWLEDGEMENT-TIMER PIC S9(9) COMP-4. 05 X25-INACTIVITY-TIMER PIC S9(9) COMP-4. |
|
05 APPN-TRANSMISSION-GROUP-NUM PIC S9(9) COMP-4. 05 AUTODELETE-DEV PIC S9(9) COMP-4. 05 USER-DEFINED-1 PIC S9(9) COMP-4. 05 USER-DEFINED-2 PIC S9(9) COMP-4. 05 USER-DEFINED-3 PIC S9(9) COMP-4. 05 RECOVERY-LIMIT-COUNT PIC S9(9) COMP-4. 05 RECOVERY-LIMIT-TIME PIC S9(9) COMP-4. 05 OFFSET-LST-DEV PIC S9(9) COMP-4. 05 ENTRY-LEN-LST-DEV PIC S9(9) COMP-4. 05 OFFSET-LST-SW-LINES PIC S9(9) COMP-4. 05 NUM-ENTRY-LST-SW-LINES PIC S9(9) COMP-4. 05 ENTRY-LEN-LST-SW-LINES PIC S9(9) COMP-4. 05 LINK-TYPE PIC X(10). 05 SWITCHED-CONNECTION PIC X(10). 05 SHORT-HOLD-MODE-SHM PIC X(10). 05 SWITCHED-NET-BACKUP PIC X(10). 05 ACTIVATE-SW-NET-BACKUP PIC X(10). 05 APPN-CAPABLE PIC X(10). 05 ATTACHED-NS-LINE-NAME PIC X(10). 05 CHAR-CODE PIC X(10). 05 REMOTE-NET-ID PIC X(10). 05 REMOTE-CONTROL-POINT-NAME PIC X(10). |
|
05 ADJACENT-LINK-STATION PIC X(10). 05 SYS-SERVICE-CONTROL-POINT-ID PIC X(12). 05 LOCAL-EXCHANGE-ID PIC X(10). 05 INITIAL-CONNECTION PIC X(10). 05 DIAL-INITIATION PIC X(10). 05 CONNECTION-NUM PIC X(32). 05 ANSWER-NUM PIC X(10). 05 ACTIVATE-X25-NET-ADDR PIC X(10). 05 CONNECTION-LST PIC X(10). 05 CONNECTION-LST-ENTRY PIC X(10). 05 SWITCHED-DISCONNECT PIC X(10). 05 STATION-ADDR PIC X(10). 05 LAN-REMOTE-ADAPTER-ADDR PIC X(12). 05 DEST-SERVICE-ACCESS-POINT PIC X(10). 05 SOURCE-SERVICE-ACCESS-POINT PIC X(10). 05 X25-NET-LVL PIC X(10). 05 X25-LINK-PROTOCOL PIC X(10). 05 X25-LOGICAL-CHANNEL-ID PIC X(10). 05 X25-CONNECTION-PASSWORD PIC X(10). 05 X25-SW-LINE-SELECTION PIC X(10). 05 X25-USER-GROUP-ID PIC X(10). 05 X25-REVERSE-CHARGING PIC X(10). |
|
05 APPC-CP-SESSION-SUPPORT PIC X(10). 05 APPN-NODE-TYPE PIC X(10). 05 APPN-MIN-SW-STATUS PIC X(10). 05 RECONNECT-AT-VARY-OFF PIC X(10). 05 USER-FACILITIES PIC X(218). * 05 LST-ATTACHED-DEVICES * 10 ATTACHED-DEV-NAME OCCURS 0-N TIMES PIC X(10). * 05 LST-SW-LINES * 10 SWITCHED-LINE-MODE OCCURS 0-N TIMES PIC X(10). I**************************************************************** I* * I* Data Structure for API: QDCRCTLD * I* Format: CTLD0700 * I* Language: RPG * I* Note(s): * I* * I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I B 9 120NBRATT I 13 19 DATINF |
|
I 20 25 TIMINF I 26 35 CTLNAM I 36 45 CTLCAT I 46 55 ONLINE I 56 105 TXTDSC I 106 108 RESERV I B 109 1120MAXFRM I B 113 1160IDLCWS I B 117 1200IDLCFR I B 121 1240IDLCRT I B 125 1280IDLCCR I B 129 1320PREDLY I B 133 1360REDDLY I B 137 1400DILTRY I B 141 1440MINCNN I B 145 1480DCTDLY I B 149 1520LANFR I B 153 1560LANCR I B 157 1600LANRT I B 161 1640LANCT I B 165 1680LANAT I B 169 1720LANIT |
|
I B 173 1760LANAF I B 177 1800LANOF I B 181 1840LANAP I B 185 1880LANWS I B 189 1920DPSTRN I B 193 1960DPSRCV I B 197 2000NPSTRN I B 201 2040NPSRCV I B 205 2080DWSTRN I B 209 2120DWSRCV I B 213 2160NWSTRN I B 217 2200NWSRCV I B 221 2240X25FR I B 225 2280X25RT I B 229 2320X25AT I B 233 2360X25IT I B 237 2400APPNGN I B 241 2440ATDDEV I B 245 2480USR1 I B 249 2520USR2 I B 253 2560USR3 I B 257 2600CNTLMT |
|
I B 261 2640CNTTIM I B 265 2680OFFDEV I B 269 2720LENDEV I B 273 2760OFFSWL I B 277 2800NBRSWL I B 281 2840LENSWL I 285 294 LNKTYP I 295 304 SWCNN I 205 314 SHM I 215 324 SWNB I 225 334 ASWNB I 235 344 APPNC I 245 354 NSWNAM I 255 364 CHRCDE I 265 374 RNETID I 275 384 RCPNAM I 285 394 ADJSTN I 395 406 SRVCPI I 407 416 LCLXID I 417 426 INLCNN I 427 436 DILINT I 437 468 CNNNBR |
|
I 469 478 ANSNBR I 479 488 AX25NA I 489 498 CNNLST I 499 508 CNNENT I 509 518 SWDCT I 519 528 STNADR I 529 540 LANRAA I 541 550 DSTPT I 551 560 SRCPT I 561 570 X25LVL I 571 580 X25LNK I 581 590 X25LOG I 591 600 X25PWD I 601 610 X25SLT I 611 620 X25GRP I 621 630 X25REV I 631 640 APPCSS I 641 650 APPNNT I 651 660 APPNSS I 661 670 RCTAVO I 671 888 USRFAC I* |
|
I* (List of attatched devices. Following entry is repeated 0-n times.) I* CHAR(10) Attatched device name DEVNAM I* I* (List of switched lines. Following entry is repeated 0-n times.) I* CHAR(10) Switched line name SWLNAM **************************************************************** * * * Data Structure For API: QDCRCTLD * * Format: CTLD0800 * * Language: COBOL * * * **************************************************************** 01 CTLD0800-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 NUM-ATTACHED-DEVICES PIC S9(9) COMP-4. 05 DATA-INFO-RTV PIC X(7). 05 TIME-INFO-RTV PIC X(6). 05 CONTROLLER-NAME PIC X(10). 05 CONTROLLER-CATEGORY PIC X(10). 05 ONLINE-AT-IPL PIC X(10). 05 TEXT-D PIC X(50). |
|
05 EMPTY-FIELD PIC X(3). 05 CONNECTION-RESPONSE-TIMER PIC S9(9) COMP-4. 05 OFFSET-LST-DEV PIC S9(9) COMP-4. 05 ENTRY-LEN-LST-DEV PIC S9(9) COMP-4. 05 ATTACHED-LINE PIC X(10). 05 EMPTY-FIELD2 PIC X(2). * 05 LST-ATTACHED-DEVICES * 10 ATTACHED-DEV-NAME OCCURS 0-N TIMES PIC X(10). * 10 EMPTY-FIELD3 OCCURS 0-N TIMES PIC X(2). I**************************************************************** I* * I* Data structure for API: QDCRCTLD * I* Format: CTLD0800 * I* Langauge: RPG * I* Note(s): * I* * I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I B 9 120NBRDEV I 13 19 DATINF |
|
I 20 25 TIMINF I 26 35 CTLNAM I 36 45 CTLCAT I 46 55 ONLINE I 56 105 TXTDSC I 106 108 RESERV I B 109 1120CNNTIM I B 113 1160OFFDEV I B 117 1200LENDEV I 121 130 ATTLIN I 131 132 RESRVD I* I* (List of attatched devices. Following two entries are I* repeated 0-n times.) I* CHAR(10) Attatched device name DEVNAM I* CHAR(2) (reserved) DEVRSV **************************************************************** * * * Data Structure For API: QDCRCTLD * * Format: CTLD0900 * * Language: COBOL * * * |
|
**************************************************************** 01 CTLD0900-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 NUM-ATTACHED-DEVICES PIC S9(9) COMP-4. 05 DATA-INFO-RTV PIC X(7). 05 TIME-INFO-RTV PIC X(6). 05 CONTROLLER-NAME PIC X(10). 05 CONTROLLER-CATEGORY PIC X(10). 05 ONLINE-AT-IPL PIC X(10). 05 TEXT-D PIC X(50). 05 EMPTY-FIELD PIC X(3). 05 MAX-FRAME-SIZE PIC S9(9) COMP-4. 05 PREDIAL-DELAY PIC S9(9) COMP-4. 05 REDIAL-DELAY PIC S9(9) COMP-4. 05 DIAL-RETRIES PIC S9(9) COMP-4. 05 SDLC-POLL-LIMIT PIC S9(9) COMP-4. 05 SDLC-OUT-LIMIT PIC S9(9) COMP-4. 05 SDLC-CONNECT-POLL-RETRY PIC S9(9) COMP-4. 05 SDLC-NDM-POLL-TIMER PIC S9(9) COMP-4. 05 LAN-FRAME-RETRY PIC S9(9) COMP-4. 05 LAN-CONNECTION-RETRY PIC S9(9) COMP-4. |
|
05 LAN-RESPONSE-TIMER PIC S9(9) COMP-4. 05 LAN-CONNECTION-TIMER PIC S9(9) COMP-4. 05 LAN-ACKNOWLEDGEMENT-TIMER PIC S9(9) COMP-4. 05 LAN-INACTIVITY-TIMER PIC S9(9) COMP-4. 05 LAN-ACKNOWLEDGEMENT-FREQUENCY PIC S9(9) COMP-4. 05 LAN-OUTSTANDING-FRAMES PIC S9(9) COMP-4. 05 LAN-ACCESS-PRIOITY PIC S9(9) COMP-4. 05 LAN-WINDOW-STEP PIC S9(9) COMP-4. 05 DFT-PACKET-SIZE-TRANSMIT PIC S9(9) COMP-4. 05 DFT-PACKET-SIZE-RECEIVE PIC S9(9) COMP-4. 05 NEGOTIATE-PACKET-SIZE-TRANSMIT PIC S9(9) COMP-4. 05 NEGOTIATE-PACKET-SIZE-RECEIVE PIC S9(9) COMP-4. 05 DFT-WINDOW-SIZE-TRANSMIT PIC S9(9) COMP-4. 05 DFT-WINDOW-SIZE-RECEIVE PIC S9(9) COMP-4. 05 NEGOTIATE-WINDOW-SIZE-TRANSMIT PIC S9(9) COMP-4. 05 NEGOTIATE-WINDOW-SIZE-RECEIVE PIC S9(9) COMP-4. 05 X25-FRAME-ENTRY PIC S9(9) COMP-4. 05 X25-CONNECTION-RETRY PIC S9(9) COMP-4. 05 X25-RESPONSE-TIMER PIC S9(9) COMP-4. 05 X25-CONNECTION-TIMER PIC S9(9) COMP-4. 05 X25-DELAYED-CONNECTION-TIMER PIC S9(9) COMP-4. 05 RECOVERY-LIMIT-COUNT PIC S9(9) COMP-4. |
|
05 RECOVERY-LIMIT-TIME PIC S9(9) COMP-4. 05 OFFSET-LST-DEV PIC S9(9) COMP-4. 05 ENTRY-LEN-LST-DEV PIC S9(9) COMP-4. 05 OFFSET-LST-SW-LINES PIC S9(9) COMP-4. 05 NUM-ENTRY-LST-SW-LINES PIC S9(9) COMP-4. 05 ENTRY-LEN-LST-SW-LINES PIC S9(9) COMP-4. 05 CONTROLLER-TYPE PIC X(10). 05 CONTROLLER-MODEL PIC X(10). 05 LINK-TYPE PIC X(10). 05 SWITCHED-LINE-NAME PIC X(10). 05 SWITCHED-NET-BACKUP PIC X(10). 05 ACTIVATE-SW-NET-BACKUP PIC X(10). 05 ATTACHED-NS-LINE-NAME PIC X(10). 05 CHAR-CODE PIC X(10). 05 EXCHANGE-ID PIC X(10). 05 SYS-SERVICE-CONTROL-POINT-ID PIC X(12). 05 INITIAL-CONNECTION PIC X(10). 05 CONNECTION-NUM PIC X(32). 05 ANSWER-NUM PIC X(10). 05 ACTIVATE-X25-NET-ADDR PIC X(10). 05 SWITCHED-DISCONNECT PIC X(10). 05 STATION-ADDR PIC X(10). |
|
05 SDLC-POLL-PRIORITY PIC X(10). 05 LAN-REMOTE-ADAPTER-ADDR PIC X(12). 05 DEST-SERVICE-ACCESS-POINT PIC X(10). 05 SOURCE-SERVICE-ACCESS-POINT PIC X(10). 05 X25-NET-LVL PIC X(10). 05 X25-LOGICAL-CHANNEL-ID PIC X(10). 05 X25-CONNECTION-PASSWORD PIC X(10). 05 X25-SW-LINE-SELECTION PIC X(10). 05 X25-USER-GROUP-ID PIC X(10). 05 X25-REVERSE-CHARGING PIC X(10). 05 USER-FACILITIES PIC X(218). * 05 LST-ATTACHED-DEVICES * 10 ATTACHED-DEV-NAME OCCURS 0-N TIMES PIC X(10). * 10 EMPTY-FIELD2 OCCURS 0-N TIMES PIC X(2). * 05 LST-SW-LINES * 10 SWITCHED-LINE-NAME OCCURS 0-N TIMES PIC X(10). * 10 EXTRA-FIELD3 OCCURS 0-N TIMES PIC X(2). I**************************************************************** I* * I* Data structure for API: QDCRCTLD * I* Format: CTLD0900 * I* Langauge: RPG * |
|
I* Note(s): * I* * I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I B 9 120NBRDEV I 13 19 DATINF I 20 25 TIMINF I 26 35 CTLNAM I 36 45 CTLCAT I 46 55 ONLINE I 56 105 TXTDSC I 106 108 RESERV I B 109 1120MAXFRM I B 113 1160PREDLY I B 117 1200REDDLY I B 121 1240DILTRY I B 125 1280SDLCPL I B 129 1320SDLCOL I B 133 1360SDLCPR I B 137 1400SDLCPT |
|
I B 141 1440LANFR I B 145 1480LANCR I B 149 1520LANRT I B 153 1560LANCT I B 157 1600LANAT I B 161 1640LANIT I B 165 1680LANAF I B 169 1720LANOF I B 173 1760LANAP I B 177 1800LANWS I B 181 1840DPSTRN I B 185 1880DPSRCV I B 189 1920NPSTRN I B 193 1960NPSRCV I B 197 2000DWSTRN I B 201 2040DWSRCV I B 205 2080NWSTRN I B 209 2120NWSRCV I B 213 2160X25FR I B 217 2200X25CR I B 221 2240X25RT I B 225 2280X25CT |
|
I B 229 2320X25DCT I B 233 2360CNTLMT I B 237 2400TIMINT I B 241 2440OFFDEV I B 245 2480LENDEV I B 249 2520OFFSWL I B 253 2560NBRSWL I B 257 2600LENSWL I 261 270 CTLTYP I 271 280 CTLMDL I 281 290 LNKTYP I 291 300 SWLNAM I 301 310 SWNB I 311 320 ASWNB I 321 330 NSWNAM I 331 340 CHRCDE I 341 350 XID I 351 362 SRVCPI I 363 372 INLCNN I 373 404 CNNNBR I 405 414 ANSNBR I 415 424 AX25NA |
|
I 425 434 SWDCT I 435 444 STNADR I 445 454 SDLCPP I 455 466 LANRAA I 467 476 DSTPT I 477 486 SRCPT I 487 496 X25LVL I 497 506 X25LOG I 507 516 X25PWD I 517 526 X25SLT I 527 536 X25GRP I 537 546 X25REV I 547 764 USRFAC I* I* (List of attatched devices. Following I* entries are repeated 0-n times.) I* CHAR(10) Attatched device name DEVNAM I* CHAR(2) (reserved) DEVRSV I* I* (List of switched lines. Following I* entries are repeated 0-n times.) I* CHAR(10) Switched line name SWLNAM |
|
I* CHAR(2) (reserved) SWLRSV **************************************************************** * * * Data Structure For API: QDCRCTLD * * Format: CTLD1000 * * Language: COBOL * * * **************************************************************** 01 CTLD1000-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 NUM-ATTACHED-DEVICES PIC S9(9) COMP-4. 05 DATA-INFO-RTV PIC X(7). 05 TIME-INFO-RTV PIC X(6). 05 CONTROLLER-NAME PIC X(10). 05 CONTROLLER-CATEGORY PIC X(10). 05 ONLINE-AT-IPL PIC X(10). 05 TEXT-D PIC X(50). 05 EMPTY-FIELD PIC X(3). 05 DEVICE-WAIT-TIMER PIC S9(9) COMP-4. 05 MAX-FRAME-SIZE PIC S9(9) COMP-4. 05 IDLC-DFT-WINDOW-SIZE PIC S9(9) COMP-4. |
|
05 IDLC-FRAME-RETRY PIC S9(9) COMP-4. 05 IDLC-REPONSE-TIMER PIC S9(9) COMP-4. 05 IDLC-CONNECT-RETRY PIC S9(9) COMP-4. 05 PREDIAL-DELAY PIC S9(9) COMP-4. 05 REDIAL-DELAY PIC S9(9) COMP-4. 05 DIAL-RETRIES PIC S9(9) COMP-4. 05 SHM-DISCONNECT-LIMIT PIC S9(9) COMP-4. 05 SHM-DISCONNECT-TIMER PIC S9(9) COMP-4. 05 SDLC-POLL-LIMIT PIC S9(9) COMP-4. 05 SDLC-OUT-LIMIT PIC S9(9) COMP-4. 05 SDLC-CONNECT-POLL-RETRY PIC S9(9) COMP-4. 05 SDLC-NDM-POLL-TIMER PIC S9(9) COMP-4. 05 LAN-FRAME-RETRY PIC S9(9) COMP-4. 05 LAN-CONNECTION-RETRY PIC S9(9) COMP-4. 05 LAN-RESPONSE-TIMER PIC S9(9) COMP-4. 05 LAN-CONNECTION-TIMER PIC S9(9) COMP-4. 05 LAN-ACKNOWLEDGEMENT-TIMER PIC S9(9) COMP-4. 05 LAN-INACTIVITY-TIMER PIC S9(9) COMP-4. 05 LAN-ACKNOWLEDGEMENT-FREQUENCY PIC S9(9) COMP-4. 05 LAN-MAX-OUTSTANDING-FRAMES PIC S9(9) COMP-4. 05 LAN-ACCESS-PRIOITY PIC S9(9) COMP-4. 05 LAN-WINDOW-STEP PIC S9(9) COMP-4. |
|
05 DFT-PACKET-SIZE-TRANSMIT PIC S9(9) COMP-4. 05 DFT-PACKET-SIZE-RECEIVE PIC S9(9) COMP-4. 05 NEGOTIATE-PACKET-SIZE-TRANSMIT PIC S9(9) COMP-4. 05 NEGOTIATE-PACKET-SIZE-RECEIVE PIC S9(9) COMP-4. 05 DFT-WINDOW-SIZE-TRANSMIT PIC S9(9) COMP-4. 05 DFT-WINDOW-SIZE-RECEIVE PIC S9(9) COMP-4. 05 NEGOTIATE-WINDOW-SIZE-TRANSMIT PIC S9(9) COMP-4. 05 NEGOTIATE-WINDOW-SIZE-RECEIVE PIC S9(9) COMP-4. 05 X25-FRAME-ENTRY PIC S9(9) COMP-4. 05 X25-CONNECTION-RETRY PIC S9(9) COMP-4. 05 X25-RESPONSE-TIMER PIC S9(9) COMP-4. 05 X25-CONNECTION-TIMER PIC S9(9) COMP-4. 05 X25-DELAYED-CONNECTION-TIMER PIC S9(9) COMP-4. 05 X25-ACKNOWLEDGEMENT-TIMER PIC S9(9) COMP-4. 05 X25-INACTIVITY-TIMER PIC S9(9) COMP-4. 05 ALLOCATION-RETRY-TIMER PIC S9(9) COMP-4. 05 RECOVERY-LIMIT-COUNT PIC S9(9) COMP-4. 05 RECOVERY-LIMIT-TIME PIC S9(9) COMP-4. 05 OFFSET-LST-DEV PIC S9(9) COMP-4. 05 ENTRY-LEN-LST-DEV PIC S9(9) COMP-4. 05 OFFSET-LST-SW-LINES PIC S9(9) COMP-4. 05 NUM-ENTRY-LST-SW-LINES PIC S9(9) COMP-4. |
|
05 ENTRY-LEN-LST-SW-LINES PIC S9(9) COMP-4. 05 CONTROLLER-TYPE PIC X(10). 05 CONTROLLER-MODEL PIC X(10). 05 LINK-TYPE PIC X(10). 05 SWITCHED-CONNECTION PIC X(10). 05 SHORT-HOLD-MODE-SHM PIC X(10). 05 SWITCHED-NET-BACKUP PIC X(10). 05 ACTIVATE-SW-NET-BACKUP PIC X(10). 05 ATTACHED-NS-LINE-NAME PIC X(10). 05 TDLC-LINE-NAME PIC X(10). 05 CHAR-CODE PIC X(10). 05 REMOTE-LOCATION-NAME PIC X(10). 05 LOCAL-LOCATION-NAME PIC X(10). 05 REMOTE-NET-ID PIC X(10). 05 EXCHANGE-ID PIC X(10). 05 SYS-SERVICE-CONTROL-POINT-ID PIC X(12). 05 INITIAL-CONNECTION PIC X(10). 05 DIAL-INITIATION PIC X(10). 05 CONNECTION-NUM PIC X(32). 05 ANSWER-NUM PIC X(10). 05 ACTIVATE-X25-NET-ADDR PIC X(10). 05 CONNECTION-LST PIC X(10). |
|
05 CONNECTION-LST-ENTRY PIC X(10). 05 STATION-ADDR PIC X(10). 05 SDLC-POLL-PRIORITY PIC X(10). 05 LAN-REMOTE-ADAPTER-ADDR PIC X(12). 05 DEST-SERVICE-ACCESS-POINT PIC X(10). 05 SOURCE-SERVICE-ACCESS-POINT PIC X(10). 05 X25-NET-LVL PIC X(10). 05 X25-LINK-PROTOCOL PIC X(10). 05 X25-LOGICAL-CHANNEL-ID PIC X(10). 05 X25-CONNECTION-PASSWORD PIC X(10). 05 X25-SW-LINE-SELECTION PIC X(10). 05 X25-USER-GROUP-ID PIC X(10). 05 X25-REVERSE-CHARGING PIC X(10). 05 USER-FACILITIES PIC X(218). * 05 LST-ATTACHED-DEVICES * 10 ATTACHED-DEV-NAME OCCURS 0-N TIMES PIC X(10). * 10 EMPTY-FIELD2 OCCURS 0-N TIMES PIC X(2). * 05 LST-SW-LINES * 10 SWITCHED-LINE-NAME OCCURS 0-N TIMES PIC X(10). * 10 EMPTY-FIELD3 OCCURS 0-N TIMES PIC X(2). I**************************************************************** I* * |
|
I* Data structure for API: QDCRCTLD * I* Format: CTLD1000 * I* Langauge: RPG * I* Note(s): * I* * I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I B 9 120NBRDEV I 13 19 DATINF I 20 25 TIMINF I 26 35 CTLNAM I 36 45 CTLCAT I 46 55 ONLINE I 56 105 TXTDSC I 106 108 RESERV I B 109 1120DEVTIM I B 113 1160MAXFRM I B 117 1200IDLCWS I B 121 1240IDLCFR I B 125 1280IDLCRT |
|
I B 129 1320IDLCCR I B 133 1360PREDLY I B 137 1400REDDLY I B 141 1440DILTRY I B 145 1480SHMLMT I B 149 1520SHMTIM I B 153 1560SDLCPL I B 157 1600SDLCOL I B 161 1640SDLCPR I B 165 1680SDLCPT I B 169 1720LANFR I B 173 1760LANCR I B 177 1800LANRT I B 181 1840LANCT I B 185 1880LANAT I B 189 1920LANIT I B 193 1960LANAF I B 197 2000LANMOF I B 201 2040LANAP I B 205 2080LANWS I B 209 2120DPSTRT I B 213 2160DPSRCR |
|
I B 217 2200NPSTRN I B 221 2240NPSRCV I B 225 2280DWSTRN I B 229 2320DWSRCV I B 233 2360NWSTRN I B 237 2400NWSRCV I B 241 2440X25FR I B 245 2480X25CR I B 249 2520X25RT I B 253 2560X25CT I B 257 2600X25DCT I B 261 2640X25AT I B 265 2680X25IT I B 269 2720RTYTIM I B 273 2760CNTLMT I B 277 2800TIMINT I B 281 2840OFFDEV I B 285 2880LENDEV I B 289 2920OFFSWL I B 293 2960NBRSWL I B 297 3000LENSWL I 301 310 CTLTYP |
|
I 311 320 CTLMDL I 321 330 LNKTYP I 331 340 SWCNN I 341 350 SHM I 351 360 SWNB I 361 370 ASWNB I 371 380 NSWNAM I 381 390 TDLCLN I 391 400 CHRCDE I 401 410 RMTNAM I 411 420 LCLNAM I 421 430 RNETID I 431 440 XID I 441 452 SRVCPI I 453 462 INLCNN I 463 472 DILITI I 473 504 CNNNBR I 505 514 ANSNBR I 515 524 AX25NA I 525 534 CNNLST I 535 544 CNNENT I 545 554 STNADR |
|
I 555 564 SDLCPP I 565 576 LANRAA I 577 586 DSTSAP I 587 596 SRCSAP I 597 606 X25LVL I 607 616 X25LNK I 617 626 X25LOG I 627 636 X25PWD I 637 646 X25SLT I 647 656 X25GRP I 657 666 X25REV I 667 884 USRFAC I* I* (List of attatched devices. Following I* entries are repeated 0-n times.) I* CHAR(10) Attatched device name DEVNAM I* CHAR(2) (reserved) DEVRSV I* I* (List of switched lines. Following I* entries are repeated 0-n times.) I* CHAR(10) Switched line name SWLNAM I* CHAR(2) (reserved) SWLRSV |
|
**************************************************************** * * * Data Structure For API: QDCRCTLD * * Format: CTLD1100 * * Language: COBOL * * * **************************************************************** 01 CTLD1100-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 NUM-ATTACHED-DEVICES PIC S9(9) COMP-4. 05 DATA-INFO-RTV PIC X(7). 05 TIME-INFO-RTV PIC X(6). 05 CONTROLLER-NAME PIC X(10). 05 CONTROLLER-CATEGORY PIC X(10). 05 ONLINE-AT-IPL PIC X(10). 05 TEXT-D PIC X(50). 05 EMPTY-FIELD PIC X(3). 05 OFFSET-LST-DEV PIC S9(9) COMP-4. 05 ENTRY-LEN-LST-DEV PIC S9(9) COMP-4. * 05 LST-ATTACHED-DEVICES * 10 ATTACHED-DEV-NAME OCCURS 0-N TIMES PIC X(10). |
|
* 10 EXTRA-FILED2 OCCURS 0-N TIMES PIC X(2). I**************************************************************** I* * I* Data structure for API: QDCRCTLD * I* Format: CTLD1100 * I* Langauge: RPG * I* Note(s): * I* * I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I B 9 120NBRDEV I 13 19 DATINF I 20 25 TIMINF I 26 35 CTLNAM I 36 45 CTLCAT I 46 55 ONLINE I 56 105 TXTDSC I 106 108 RESERV I B 109 1120OFFDEV I B 113 1160LENDEV |
|
I* I* (List of attatched devices. Following I* entries are repeated 0-n times.) I* CHAR(10) Attatched device name DEVNAM I* CHAR(2) (reserved) DEVRSV **************************************************************** * * * Data Structure For API: QDCRCTLD * * Format: CTLD1200 * * Language: COBOL * * * **************************************************************** 01 CTLD1200-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 NUM-ATTACHED-DEVICES PIC S9(9) COMP-4. 05 DATA-INFO-RTV PIC X(7). 05 TIME-INFO-RTV PIC X(6). 05 CONTROLLER-NAME PIC X(10). 05 CONTROLLER-CATEGORY PIC X(10). 05 ONLINE-AT-IPL PIC X(10). 05 TEXT-D PIC X(50). |
|
05 EMPTY-FIELD PIC X(3). 05 DEVICE-WAIT-TIMER PIC S9(9) COMP-4. 05 OFFSET-LST-DEV PIC S9(9) COMP-4. 05 ENTRY-LEN-LST-DEV PIC S9(9) COMP-4. 05 CONTROLLER-TYPE PIC X(10). 05 CONTROLLER-MODEL PIC X(10). 05 RESOURCE-NAME PIC X(10). 05 TDLC-LINE-NAME PIC X(10). 05 AUTO-CONFIGURATION PIC X(10). 05 EMPTY-FIELD2 PIC X(2). * 05 LST-ATTACHED-DEVICES * 10 ATTACHED-DEV-NAME OCCURS 0-N TIMES PIC X(10). * 10 EXTRA-FIELD3 OCCURS 0-N TIMES PIC X(2). I**************************************************************** I* * I* Data structure for API: QDCRCTLD * I* Format: CTLD1200 * I* Langauge: RPG * I* Note(s): * I* * I**************************************************************** IRCVVAR DS |
|
I B 1 40BYTRTN I B 5 80BYTVAL I B 9 120NBRDEV I 13 19 DATINF I 20 25 TIMINF I 26 35 CTLNAM I 36 45 CTLCAT I 46 55 ONLINE I 56 105 TXTDSC I 106 108 RESERV I B 109 1120DEVTIM I B 113 1160OFFDEV I B 117 1200LENDEV I 121 130 CTLTYP I 131 140 CTLMDL I 141 150 RSCNAM I 151 160 TDLCLN I 161 170 AUTCFG I 171 172 RESRVD I* I* (List of attatched devices. Following I* entries are repeated 0-n times.) |
|
I* CHAR(10) Attatched device name DEVNAM I* CHAR(2) (reserved) DEVRSV **************************************************************** * * * Data Structure For API: QDCRCTLD * * Format: CTLD1300 * * Language: COBOL * * * **************************************************************** 01 CTLD1300-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 NUM-ATTACHED-DEVICES PIC S9(9) COMP-4. 05 DATA-INFO-RTV PIC X(7). 05 TIME-INFO-RTV PIC X(6). 05 CONTROLLER-NAME PIC X(10). 05 CONTROLLER-CATEGORY PIC X(10). 05 ONLINE-AT-IPL PIC X(10). 05 TEXT-D PIC X(50). 05 EMPTY-FIELD PIC X(3). 05 OFFSET-LST-DEV PIC S9(9) COMP-4. 05 ENTRY-LEN-LST-DEV PIC S9(9) COMP-4. |
|
05 CONTROLLER-TYPE PIC X(10). 05 CONTROLLER-MODEL PIC X(10). 05 RESOURCE-NAME PIC X(10). 05 AUTO-CONFIGURATION PIC X(10). * 05 LST-ATTACHED-DEVICES * 10 ATTACHED-DEV-NAME OCCURS 0-N TIMES PIC X(10). * 10 EXTRA-FIELD2 OCCURS 0-N TIMES PIC X(2). I**************************************************************** I* * I* Data structure for API: QDCRCTLD * I* Format: CTLD1300 * I* Langauge: RPG * I* Note(s): * I* * I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I B 9 120NBRDEV I 13 19 DATINF I 20 25 TIMINF I 26 35 CTLNAM |
|
I 36 45 CTLCAT I 46 55 ONLINE I 56 105 TXTDSC I 106 108 RESERV I B 109 1120OFFDEV I B 113 1160LENDEV I 117 126 CTLTYP I 127 136 CTLMDL I 137 146 RSCNAM I 147 156 AUTCFG I* I* (List of attatched devices. Following I* entries are repeated 0-n times.) I* CHAR(10) Attatched device name DEVNAM I* CHAR(2) (reserved) DEVRSV |
