**************************************************************** * * * Data Structure For API: QDCRDEVD * * Format: DEVD0100 * * Language: COBOL * * * **************************************************************** 01 DEVD0100-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 DATE-INFO-RTV PIC X(7). 05 TIME-INFO-RTV PIC X(6). 05 DEV-NAME PIC X(10). 05 DEV-CATEGORY PIC X(10). 05 ONLINE-IPL PIC X(10). 05 TEXT-DESC PIC X(50). 05 EMPTY-FIELD PIC X(3). I**************************************************************** I* * I* Data structure for API: QDCRDEVD * I* Format: DEVD0100 * I* Langauge: RPG * |
I* Note(s): * I* * I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I 9 15 DATINF I 16 21 TIMINF I 22 31 DEVNAM I 32 41 DEVCAT I 42 51 ONLINE I 52 101 TXTDSC I 102 104 RESERV **************************************************************** * * * Data Structure For API: QDCRDEVD * * Format: DEVD0200 * * Language: COBOL * * * **************************************************************** 01 DEVD0200-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. |
05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 DATE-INFO-RTV PIC X(7). 05 TIME-INFO-RTV PIC X(6). 05 DEV-NAME PIC X(10). 05 DEV-CATEGORY PIC X(10). 05 ONLINE-IPL PIC X(10). 05 TEXT-DESC PIC X(50). 05 EMPTY-FIELD PIC X(3). 05 OFFSET-LST-MODE-NAMES PIC S9(9) COMP-4. 05 NUM-ENTRIES-LST-MODE-NAMES PIC S9(9) COMP-4. 05 ENTRY-LEN-LST-MODE-NAMES PIC S9(9) COMP-4. 05 REMOTE-LOCATION-NAME PIC X(10). 05 LOCAL-LOCATION-NAME PIC X(10). 05 REMOTE-NET-ID PIC X(10). 05 ATTACHED-NS-CNTRL-NAME PIC X(10). 05 MESSAGE-QUEUE-NAME PIC X(10). 05 MESSAGE-QUEUE-LIB PIC X(10). 05 LOCAL-LOCATION-ADDR PIC X(10). 05 APPN-CAPABLE PIC X(10). 05 SINGLE-SESSION-IND PIC X(10). 05 SINGLE-SESSION-NUM-CONVERSIONS PIC X(10). 05 LOCALLY-CONTROLLED-SESSION PIC X(10). |
05 PRE-ESTABLISHED-SESSION PIC X(10). 05 SECURE-LOCATION PIC X(10). 05 AUTO-CONFIG PIC X(10). * 05 LST-MODE-NAMES * 10 MODE-NAME OCCURS 0-N TIMES PIC X(10). * 10 EMPTY-FIELD2 OCCURS 0-N TIMES PIC X(10). I**************************************************************** I* * I* Data structure for API: QDCRDEVD * I* Format: DEVD0200 * I* Langauge: RPG * I* Note(s): * I* * I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I 9 15 DATINF I 16 21 TIMINF I 22 31 DEVNAM I 32 41 DEVCAT I 42 51 ONLINE |
I 52 101 TXTDSC I 102 104 RESERV I B 105 1080OFFMDE I B 109 1120NUMMDE I B 113 1160LENMDE I 117 126 RMTNAM I 127 136 LCLNAM I 137 146 RNETID I 147 156 NSWNAM I 157 166 MSGNAM I 167 176 MSGLIB I 177 186 LCLADR I 187 196 APPN I 197 206 SSNID I 207 216 SSNNBR I 217 226 LCLSSN I 227 236 PRESSN I 237 246 SECLOC I 247 256 AUTCFG I* I* (List of mode names. Following entries are repeated 0-n times.) I* |
I* CHAR(10) Mode name MDENAM I* CHAR(2) (reserved) MDERSV **************************************************************** * * * Data Structure For API: QDCRDEVD * * Format: DEVD0300 * * Language: COBOL * * * **************************************************************** 01 DEVD0300-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 DATE-INFO-RTV PIC X(7). 05 TIME-INFO-RTV PIC X(6). 05 DEV-NAME PIC X(10). 05 DEV-CATEGORY PIC X(10). 05 ONLINE-IPL PIC X(10). 05 TEXT-DESC PIC X(50). 05 EMPTY-FIELD PIC X(3). 05 REMOTE-LOCATION-NAME PIC X(10). 05 ATTACHED-NS-CNTRL-NAME PIC X(10). I**************************************************************** |
I* * I* Data structure for API: QDCRDEVD * I* Format: DEVD0300 * I* Langauge: RPG * I* Note(s): * I* * I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I 9 15 DATINF I 16 21 TIMINF I 22 31 DEVNAM I 32 41 DEVCAT I 42 51 ONLINE I 52 101 TXTDSC I 102 104 RESERV I 105 114 RMTNAM I 115 124 NSWNAM **************************************************************** * * * Data Structure For API: QDCRDEVD * |
* Format: DEVD0400 * * Language: COBOL * * * **************************************************************** 01 DEVD0400-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 DATE-INFO-RTV PIC X(7). 05 TIME-INFO-RTV PIC X(6). 05 DEV-NAME PIC X(10). 05 DEV-CATEGORY PIC X(10). 05 ONLINE-IPL PIC X(10). 05 TEXT-DESC PIC X(50). 05 EMPTY-FIELD PIC X(3). 05 RECORD-LEN PIC S9(9) COMP-4. 05 BLOCK-LEN PIC S9(9) COMP-4. 05 LOCAL-LOCATION-ADDR PIC X(10). 05 REMOTE-LOCATION-NAME PIC X(10). 05 ATTACHED-NS-CNTRL-NAME PIC X(10). 05 CONNECTION-TYPE PIC X(10). 05 APPLICATION-TYPE PIC X(10). 05 CONTENTION-RESOLUTION-WIN PIC X(10). |
05 BLOCKING-TYPE PIC X(10). 05 SEPERATOR-CHAR PIC X(10). 05 REMOTE-BSCEL PIC X(10). 05 TRANSMIT-IN-TRANS-MODE PIC X(10). 05 COMPRESS-AND-DECOMPRESS-DATA PIC X(10). 05 TRUNCATE-TRAILING-BLANKS PIC X(10). 05 GROUP-SEPARATOR-TYPE PIC X(10). 05 EMULATED-DEVICE PIC X(10). 05 EMULATED-KEYBOARD PIC X(10). 05 EMULATED-NUMERIC-LOCK PIC X(10). 05 EMULATION-WORK-STATION PIC X(10). I**************************************************************** I* * I* Data structure for API: QDCRDEVD * I* Format: DEVD0400 * I* Langauge: RPG * I* Note(s): * I* * I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL |
I 9 15 DATINF I 16 21 TIMINF I 22 31 DEVNAM I 32 41 DEVCAT I 42 51 ONLINE I 52 101 TXTDSC I 102 104 RESERV I B 105 1080RCDLEN I B 109 1120BLKLEN I 113 122 LCLADR I 123 132 RMTNAM I 133 142 NSWNAM I 143 152 CNNTYP I 153 162 APPTYP I 163 172 RESWIN I 173 182 BLKTYP I 183 192 SEPCHR I 193 202 RBSCEL I 203 212 TRNMDE I 213 222 CMPDTA I 223 232 TRUBLA I 233 242 GRPSEP |
I 243 252 EMLDEV I 253 262 EMLKBD I 263 272 EMLLCK I 273 282 EMLSTN **************************************************************** * * * Data Structure For API: QDCRDEVD * * Format: DEVD0500 * * Language: COBOL * * * **************************************************************** 01 DEVD0500-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 DATE-INFO-RTV PIC X(7). 05 TIME-INFO-RTV PIC X(6). 05 DEV-NAME PIC X(10). 05 DEV-CATEGORY PIC X(10). 05 ONLINE-IPL PIC X(10). 05 TEXT-DESC PIC X(50). 05 EMPTY-FIELD PIC X(3). 05 DEVICE-TYPE PIC X(10). |
05 DEVICE-MODEL PIC X(10). 05 RESOURCE-NAME PIC X(10). I**************************************************************** I* * I* Data structure for API: QDCRDEVD * I* Format: DEVD0500 * I* Langauge: RPG * I* Note(s): * I* * I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I 9 15 DATINF I 16 21 TIMINF I 22 31 DEVNAM I 32 41 DEVCAT I 42 51 ONLINE I 52 101 TXTDSC I 102 104 RESERV I 105 114 DEVTYP I 115 124 DEVMDL |
I 125 134 RSCNAM **************************************************************** * * * Data Structure For API: QDCRDEVD * * Format: DEVD0600 * * Language: COBOL * * * **************************************************************** 01 DEVD0600-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 DATE-INFO-RTV PIC X(7). 05 TIME-INFO-RTV PIC X(6). 05 DEV-NAME PIC X(10). 05 DEV-CATEGORY PIC X(10). 05 ONLINE-IPL PIC X(10). 05 TEXT-DESC PIC X(50). 05 EMPTY-FIELD PIC X(3). 05 CHAR-ID-CHAR-SET PIC S9(9) COMP-4. 05 CHAR-ID-CODE-PAGE PIC S9(9) COMP-4. 05 MAX-LEN-REQUEST-UNIT PIC S9(9) COMP-4. 05 INACTIVITY-TIMER PIC S9(9) COMP-4. |
05 DBCS-FEATURE-RAM-SIZE PIC S9(9) COMP-4. 05 ACTIVATION-TIMER PIC S9(9) COMP-4. 05 SWITCHED-SETTING PIC S9(9) COMP-4. 05 DEVICE-PORT PIC S9(9) COMP-4. 05 MAX-OUTSTANDING-FRAMES PIC S9(9) COMP-4. 05 IDLE-TIMER PIC S9(9) COMP-4. 05 NRM-POLL-TIMER PIC S9(9) COMP-4. 05 FRAME-RETRY PIC S9(9) COMP-4. 05 OFFSET-LST-AUX-DEV PIC S9(9) COMP-4. 05 NUM-ENTRY-LST-AUX-DEV PIC S9(9) COMP-4. 05 ENTRY-LEN-LST-AUX-DEV PIC S9(9) COMP-4. 05 DEVICE-CLASS PIC X(10). 05 DEVICE-TYPE PIC X(10). 05 DEVICE-MODEL PIC X(10). 05 LOCAL-LOCATION-ADDR PIC X(10). 05 ATTACHED-NS-CNTRL-NAME PIC X(10). 05 KEYBOARD-LANG-TYPE PIC X(10). 05 DROP-LINE-SIGNOFF PIC X(10). 05 ALLOW-BLINKING-CURSOR PIC X(10). 05 PRINT-DEVICE PIC X(10). 05 OUTPUT-QUEUE-NAME PIC X(10). 05 OUTPUT-QUEUE-LIB PIC X(10). |
05 PRINTER PIC X(10). 05 PRINT-FILE-NAME PIC X(10). 05 PRINT-FILE-LIB PIC X(10). 05 WORK-STATION-CUSTOM-OBJ-NAME PIC X(10). 05 WORK-STATION-CUSTOM-OBJ-LIB PIC X(10). 05 APPLICATION-TYPE PIC X(10). 05 DBCS-FEATURE-MATRIX-SIZE PIC X(10). 05 DBCS-FEATURE-LAND-ID PIC X(10). 05 DBCS-FEATURE-LAST-CODE-POINT PIC X(10). 05 SNA-PASS-THRU-DEV PIC X(10). 05 SNA-PASS-THRU-GROUP-NAME PIC X(10). 05 EMULATED-DEV-TYPE PIC X(10). 05 EMULATED-DEV-MODEL PIC X(10). 05 EMULATING-ASCII-DEV PIC X(10). 05 PHYS-ATTACHMENT PIC X(10). 05 LINE-SPEED PIC X(10). 05 WORD-LEN PIC X(10). 05 PARITY-TYPE PIC X(10). 05 STOP-BIT PIC X(10). 05 HOST-SIGNON-LOGON-COMMAND PIC X(256). * 05 LST-AUX-DEV * 10 AUX-DEV-ADDR OCCURS 0-N TIMES PIC S9(9) COMP-4. |
* 10 AUX-DEV-NAME OCCURS 0-N TIMES PIC X(10). * 10 EMPTY-FIELD2 OCCURS 0-N TIMES PIC X(2). I**************************************************************** I* * I* Data structure for API: QDCRDEVD * I* Format: DEVD0600 * I* Langauge: RPG * I* Note(s): * I* * I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I 9 15 DATINF I 16 21 TIMINF I 22 31 DEVNAM I 32 41 DEVCAT I 42 51 ONLINE I 52 101 TXTDSC I 102 104 RESERV I B 105 1080CHRSET I B 109 1120CDEPGE |
I B 113 1160MAXREQ I B 117 1200INATIM I B 121 1240RAMSIZ I B 125 1280ACTTIM I B 129 1320SWSET I B 133 1360DEVPOR I B 137 1400MAXFRM I B 141 1440IDLTIM I B 145 1480NRMPT I B 149 1520FRMTRY I B 153 1560OFFDEV I B 157 1600NUMDEV I B 161 1640LENDEV I 165 174 DEVCLS I 175 184 DEVTYP I 185 194 DEVMDL I 195 204 LCLADR I 205 214 NSWNAM I 215 224 KBDLNG I 225 234 DRPLIN I 235 244 BLINK I 245 254 PRTDEV |
I 255 264 OUTNAM I 265 274 OUTLIB I 275 284 PRT I 285 294 PRTNAM I 295 304 PRTLIB I 305 314 STNNAM I 315 324 STNLIB I 325 334 APPTYP I 335 344 DBCSMS I 345 354 DBCSLI I 355 364 DBCSLC I 365 374 PTDEV I 375 384 PTGRP I 385 394 EMLTYP I 395 404 EMLMDL I 405 414 ASCII I 415 424 PHYATT I 425 434 LINSPD I 435 444 WRDLEN I 445 454 PTYTYP I 455 464 STPBIT I 465 720 HSTCMD |
I* I* (List of auxiliary devices. Following entries are repeated 0-n times.) I* I* BINARY(4) Auxiliary device address AUXADR I* CHAR(10) Auxiliary device name AUXNAM I* CHAR(2) (reserved) AUXRSV **************************************************************** * * * Data Structure For API: QDCRDEVD * * Format: DEVD0700 * * Language: COBOL * * * **************************************************************** 01 DEVD0700-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 DATE-INFO-RTV PIC X(7). 05 TIME-INFO-RTV PIC X(6). 05 DEV-NAME PIC X(10). 05 DEV-CATEGORY PIC X(10). 05 ONLINE-IPL PIC X(10). 05 TEXT-DESC PIC X(50). |
05 EMPTY-FIELD PIC X(3). 05 MAX-LEN-REQUEST-UNIT PIC S9(9) COMP-4. 05 INACTIVITY-TIMER PIC S9(9) COMP-4. 05 ACTIVATION-TIMER PIC S9(9) COMP-4. 05 DEVICE-TYPE PIC X(10). 05 LOCAL-LOCATION-ADDR PIC X(10). 05 REMOTE-LOCATION-NAME PIC X(10). 05 ATTACHED-NS-CNTRL-NAME PIC X(10). 05 DEVICE-CLASS PIC X(10). 05 SNA-PASS-THRU-DEV PIC X(10). 05 SNA-PASS-THRU-GROUP-NAME PIC X(10). I**************************************************************** I* * I* Data structure for API: QDCRDEVD * I* Format: DEVD0700 * I* Langauge: RPG * I* Note(s): * I* * I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL |
I 9 15 DATINF I 16 21 TIMINF I 22 31 DEVNAM I 32 41 DEVCAT I 42 51 ONLINE I 52 101 TXTDSC I 102 104 RESERV I B 105 1080MAXRQS I B 109 1120INATIM I B 113 1160ACTTIM I 117 126 DEVTYP I 127 136 LCLADR I 137 146 RMTNAM I 147 156 NSWNAM I 157 166 DEVCLS I 167 176 PTDEV I 177 186 PTGRP **************************************************************** * * * Data Structure For API: QDCRDEVD * * Format: DEVD0800 * * Language: COBOL * |
* * **************************************************************** 01 DEVD0800-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 DATE-INFO-RTV PIC X(7). 05 TIME-INFO-RTV PIC X(6). 05 DEV-NAME PIC X(10). 05 DEV-CATEGORY PIC X(10). 05 ONLINE-IPL PIC X(10). 05 TEXT-DESC PIC X(50). 05 EMPTY-FIELD PIC X(3). 05 MAX-LEN-REQUEST-UNIT PIC S9(9) COMP-4. 05 LOCAL-LOCATION-ADDR PIC X(10). 05 REMOTE-LOCATION-NAME PIC X(10). 05 ATTACHED-NS-CNTRL-NAME PIC X(10). 05 APPLICATION-TYPE PIC X(10). 05 EMULATED-DEV-TYPE PIC X(10). 05 EMULATED-DEV-MODEL PIC X(10). 05 EMULATED-DEV-KEYBOARD PIC X(10). 05 EMULATED-DEV-NUM-LOCK PIC X(10). 05 EMULATION-WORK-STATION PIC X(10). |
I**************************************************************** I* * I* Data structure for API: QDCRDEVD * I* Format: DEVD0800 * I* Langauge: RPG * I* Note(s): * I* * I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I 9 15 DATINF I 16 21 TIMINF I 22 31 DEVNAM I 32 41 DEVCAT I 42 51 ONLINE I 52 101 TXTDSC I 102 104 RESERV I B 105 1080MAXREQ I 109 118 LCLADR I 119 128 RMTNAM I 129 138 NSWNAM |
I 139 148 APPTYP I 149 158 EMLTYP I 159 168 EMLMDL I 169 178 EMLKBD I 179 188 EMLLCK I 189 198 EMLSTN **************************************************************** * * * Data Structure For API: QDCRDEVD * * Format: DEVD0900 * * Language: COBOL * * * **************************************************************** 01 DEVD0900-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 DATE-INFO-RTV PIC X(7). 05 TIME-INFO-RTV PIC X(6). 05 DEV-NAME PIC X(10). 05 DEV-CATEGORY PIC X(10). 05 ONLINE-IPL PIC X(10). 05 TEXT-DESC PIC X(50). |
05 EMPTY-FIELD PIC X(3). 05 REMOTE-LOCATION-NAME PIC X(10). I**************************************************************** I* * I* Data structure for API: QDCRDEVD * I* Format: DEVD0900 * I* Langauge: RPG * I* Note(s): * I* * I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I 9 15 DATINF I 16 21 TIMINF I 22 31 DEVNAM I 32 41 DEVCAT I 42 51 ONLINE I 52 101 TXTDSC I 102 104 RESERV I 105 114 RMTNAM **************************************************************** |
* * * Data Structure For API: QDCRDEVD * * Format: DEVD1000 * * Language: COBOL * * * **************************************************************** 01 DEVD1000-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 DATE-INFO-RTV PIC X(7). 05 TIME-INFO-RTV PIC X(6). 05 DEV-NAME PIC X(10). 05 DEV-CATEGORY PIC X(10). 05 ONLINE-IPL PIC X(10). 05 TEXT-DESC PIC X(50). 05 EMPTY-FIELD PIC X(3). 05 NETWORK-TYPE PIC X(10). 05 ATTACHED-NS-CONTROLLER-NAME PIC X(10). I**************************************************************** I* * I* Data structure for API: QDCRDEVD * I* Format: DEVD1000 * |
I* Langauge: RPG * I* Note(s): * I* * I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I 9 15 DATINF I 16 21 TIMINF I 22 31 DEVNAM I 32 41 DEVCAT I 42 51 ONLINE I 52 101 TXTDSC I 102 104 RESERV I 105 114 NETTYP I 115 124 NSWNAM **************************************************************** * * * Data Structure For API: QDCRDEVD * * Format: DEVD1100 * * Language: COBOL * * * |
**************************************************************** 01 DEVD1100-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 DATE-INFO-RTV PIC X(7). 05 TIME-INFO-RTV PIC X(6). 05 DEV-NAME PIC X(10). 05 DEV-CATEGORY PIC X(10). 05 ONLINE-IPL PIC X(10). 05 TEXT-DESC PIC X(50). 05 EMPTY-FIELD PIC X(3). 05 FONT-ID-POINT-SIZE PIC S9(9) COMP-4. 05 MAX-LEN-REQUEST-UNIT PIC S9(9) COMP-4. 05 PACING PIC S9(9) COMP-4. 05 MAX-PENDING-REQUESTS PIC S9(9) COMP-4. 05 PRINT-REQUEST-TIMER PIC S9(9) COMP-4. 05 CHAR-ID-GRAPHIC-CHAR-SET PIC S9(9) COMP-4. 05 CHAR-ID-CODE-PAGE PIC S9(9) COMP-4. 05 DBCS-FEATURE-RAM-SIZE PIC S9(9) COMP-4. 05 INACTIVITY-TIMER PIC S9(9) COMP-4. 05 ACTIVATION-TIMER PIC S9(9) COMP-4. 05 SWITCHED-SETTING PIC S9(9) COMP-4. |
05 PORT-NUMBER PIC S9(9) COMP-4. 05 DEVICE-CLASS PIC X(10). 05 DEVICE-TYPE PIC X(10). 05 DEVICE-MODEL PIC X(10). 05 ADVANCED-FUNCTION-PRINTING PIC X(10). 05 AFP-ATTACHMENT PIC X(10). 05 LOCAL-LOCATION-ADDR PIC X(10). 05 ATTACHED-NS-CNTRL-NAME PIC X(10). 05 FONT-ID-ID PIC X(10). 05 FORM-FEED PIC X(10). 05 SEPARATOR-DRAWER PIC X(10). 05 PRINTER-ERROR-MSG PIC X(10). 05 MSG-QUEUE-NAME PIC X(10). 05 MSG-QUEUE-LIB PIC X(10). 05 APPLICATION-TYPE PIC X(10). 05 PRINT-WHILE-CONVERTING PIC X(10). 05 FORM-DEF-NAME PIC X(10). 05 FORM-DEF-LIB PIC X(10). 05 WORK-STATION-CUSTOM-OBJ-NAME PIC X(10). 05 WORK-STATION-CUSTOM-OBJ-LIB PIC X(10). 05 REMOTE-LOCATION-NAME PIC X(10). 05 LOCAL-LOCATION-NAME PIC X(10). |
05 REMOTE-NETWORK-ID PIC X(10). 05 THE-MODE PIC X(10). 05 DBCS-FEATURE-MATRIX-SIZE PIC X(10). 05 DBCS-FEATURE-LAND-ID PIC X(10). 05 DBCS-FEATURE-LAST-CODE-POINT PIC X(10). 05 SNA-PASS-THRU-DEV PIC X(10). 05 SNA-PASS-THRU-GROUP-NAME PIC X(10). 05 EMULATED-DEV-TYPE PIC X(10). 05 EMULATED-DEV-MODEL PIC X(10). 05 EMULATING-ASCII-DEV PIC X(10). 05 PHYS-ATTACHMENT PIC X(10). 05 AUX-PRINTER PIC X(10). 05 LANGUAGE-TYPE PIC X(10). 05 LINE-SPEED PIC X(10). 05 WORD-LEN PIC X(10). 05 PARITY-TYPE PIC X(10). 05 STOP-BIT PIC X(10). 05 NUM-DRAWERS PIC X(10). 05 PRINT-QUALITY PIC X(10). 05 HOST-SIGNON-LOGON-COMMAND PIC X(256). I**************************************************************** I* * |
I* Data structure for API: QDCRDEVD * I* Format: DEVD1100 * I* Langauge: RPG * I* Note(s): * I* * I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I 9 15 DATINF I 16 21 TIMINF I 22 31 DEVNAM I 32 41 DEVCAT I 42 51 ONLINE I 52 101 TXTDSC I 102 104 RESERV I B 105 1080PNTSIZ I B 109 1120MAXREQ I B 113 1160PACING I B 117 1200MAXPEN I B 121 1240PRTTIM I B 125 1280CHRSET |
I B 129 1320CDEPGE I B 133 1360RAMSIZ I B 137 1400INATIM I B 141 1440ACTTIM I B 145 1480SWSET I B 149 1520PORNUM I 153 162 DEVCLS I 163 172 DEVTYP I 173 182 DEVMDL I 183 192 ADVPRT I 193 202 AFPATT I 203 212 LCLADR I 213 222 NSWNAM I 223 232 FNTID I 233 242 FORFED I 243 252 SEPDRW I 253 262 PRTERR I 263 272 MSGNAM I 273 282 MSGLIB I 283 292 APPTYP I 293 302 PRTCVT I 303 312 FORNAM |
I 313 322 FORLIB I 323 332 STNNAM I 333 342 STNLIB I 343 352 RMTNAM I 353 362 LCLNAM I 363 372 RNETID I 373 382 MDE I 383 392 DBCSMS I 393 402 DBCSLI I 403 412 DBCSLC I 413 422 PTDEV I 423 432 PTGRP I 433 442 EMLTYP I 443 452 EMLMDL I 453 462 ASCII I 463 472 PHYATT I 473 482 AUXPRT I 483 492 LNGTYP I 493 502 LINSPD I 503 512 WRDLEN I 513 522 PTYTYP I 523 532 STPBIT |
I 533 542 NBRDRW I 543 552 PRTQTY I 553 808 HSTCMD **************************************************************** * * * Data Structure For API: QDCRDEVD * * Format: DEVD1200 * * Language: COBOL * * * **************************************************************** 01 DEVD1200-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 DATE-INFO-RTV PIC X(7). 05 TIME-INFO-RTV PIC X(6). 05 DEV-NAME PIC X(10). 05 DEV-CATEGORY PIC X(10). 05 ONLINE-IPL PIC X(10). 05 TEXT-DESC PIC X(50). 05 EMPTY-FIELD PIC X(3). 05 PACING-VALUE PIC S9(9) COMP-4. 05 MAX-LEN-REQUEST-UNIT PIC S9(9) COMP-4. |
05 INACTIVITY-TIMER PIC S9(9) COMP-4. 05 ACTIVATION-TIMER PIC S9(9) COMP-4. 05 LOCAL-LOCATION-ADDR PIC X(10). 05 REMOTE-LOCATION-NAME PIC X(10). 05 ATTACHED-NS-CNTRL-NAME PIC X(10). 05 APPLICATION-TYPE PIC X(10). 05 DEVICE-CLASS PIC X(10). 05 SNA-PASS-THRU-DEV PIC X(10). 05 SNA-PASS-THRU-GROUP-NAME PIC X(10). I**************************************************************** I* * I* Data structure for API: QDCRDEVD * I* Format: DEVD1200 * I* Langauge: RPG * I* Note(s): * I* * I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I 9 15 DATINF I 16 21 TIMINF |
I 22 31 DEVNAM I 32 41 DEVCAT I 42 51 ONLINE I 52 101 TXTDSC I 102 104 RESERV I B 105 1080PACVAL I B 109 1120MAXRQS I B 113 1160INATIM I B 117 1200ACTTIM I 121 130 LCLADR I 131 140 RMTNAM I 141 150 NSWNAM I 151 160 APPTYP I 161 170 DEVCLS I 171 180 PTDEV I 181 190 PTGRP **************************************************************** * * * Data Structure For API: QDCRDEVD * * Format: DEVD1300 * * Language: COBOL * * * |
**************************************************************** 01 DEVD1300-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 DATE-INFO-RTV PIC X(7). 05 TIME-INFO-RTV PIC X(6). 05 DEV-NAME PIC X(10). 05 DEV-CATEGORY PIC X(10). 05 ONLINE-IPL PIC X(10). 05 TEXT-DESC PIC X(50). 05 EMPTY-FIELD PIC X(3). 05 ACTIVATION-TIMER PIC S9(9) COMP-4. 05 LOCAL-LOCATION-ADDRESS PIC X(10). 05 SNA-PASSTHROUGH-CLASS PIC X(10). 05 ATT-NONSWITCHED-CTRLR-NAME PIC X(10). 05 SNA-PASSTHROUGH-DEVICE PIC X(10). 05 SNA-PASSTHROUGH-GROUP-NAME PIC X(10). I**************************************************************** I* * I* Data structure for API: QDCRDEVD * I* Format: DEVD1300 * I* Langauge: RPG * |
I* Note(s): * I* * I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I 9 15 DATINF I 16 21 TIMINF I 22 31 DEVNAM I 32 41 DEVCAT I 42 51 ONLINE I 52 101 TXTDSC I 102 104 RESERV I B 105 1080ACTTIM I 109 118 LCLADR I 119 128 PTCLS I 129 138 NSWNAM I 139 148 PTDEV I 149 158 PTGRP **************************************************************** * * * Data Structure For API: QDCRDEVD * |
* Format: DEVD1400 * * Language: COBOL * * * **************************************************************** 01 DEVD1400-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 DATE-INFO-RTV PIC X(7). 05 TIME-INFO-RTV PIC X(6). 05 DEV-NAME PIC X(10). 05 DEV-CATEGORY PIC X(10). 05 ONLINE-IPL PIC X(10). 05 TEXT-DESC PIC X(50). 05 EMPTY-FIELD PIC X(3). 05 RECORD-LEN PIC S9(9) COMP-4. 05 BLOCK-LEN PIC S9(9) COMP-4. 05 LOCAL-LOCATION-ADDR PIC X(10). 05 REMOTE-LOCATION-NAME PIC X(10). 05 ATTACHED-NS-CNTRL-NAME PIC X(10). 05 PROGRAM-START-REQUEST-CAPABLE PIC X(10). 05 SPECIAL-HOST-APPLICATION PIC X(10). 05 APPLICATION-ID PIC X(10). |
05 HOST-TYPE PIC X(10). 05 DFT-PRM-NAME PIC X(10). 05 DFT-PGM-LIB PIC X(10). 05 HCP-EMULATION PIC X(10). I**************************************************************** I* * I* Data structure for API: QDCRDEVD * I* Format: DEVD1400 * I* Langauge: RPG * I* Note(s): * I* * I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I 9 15 DATINF I 16 21 TIMINF I 22 31 DEVNAM I 32 41 DEVCAT I 42 51 ONLINE I 52 101 TXTDSC I 102 104 RESERV |
I B 105 1080RCDLEN I B 109 1120BLKLEN I 113 122 LCLADR I 123 132 RMTNAM I 133 142 NSWNAM I 143 152 STRREQ I 153 162 HSTAPP I 163 172 APPID I 173 182 HSTTYP I 183 192 DFTNAM I 193 202 DFTLIB I 203 212 HCPEML **************************************************************** * * * Data Structure For API: QDCRDEVD * * Format: DEVD1500 * * Language: COBOL * * * **************************************************************** 01 DEVD1500-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. |
05 DATE-INFO-RTV PIC X(7). 05 TIME-INFO-RTV PIC X(6). 05 DEV-NAME PIC X(10). 05 DEV-CATEGORY PIC X(10). 05 ONLINE-IPL PIC X(10). 05 TEXT-DESC PIC X(50). 05 EMPTY-FIELD PIC X(3). 05 SWITCHED-SETTING PIC X(10). 05 DEVICE-TYPE PIC X(10). 05 DEVICE-MODEL PIC X(10). 05 RESOURCE-NAME PIC X(10). 05 MSG-QUEUE-NAME PIC X(10). 05 MSG-QUEUE-LIB PIC X(10). 05 ATTACHED-NS-CONTROLLER PIC X(10). I**************************************************************** I* * I* Data structure for API: QDCRDEVD * I* Format: DEVD1500 * I* Langauge: RPG * I* Note(s): * I* * I**************************************************************** |
IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I 9 15 DATINF I 16 21 TIMINF I 22 31 DEVNAM I 32 41 DEVCAT I 42 51 ONLINE I 52 101 TXTDSC I 102 104 RESERV I B 105 1080SWSET I 109 118 DEVTYP I 119 128 DEVMDL I 129 138 RSCNAM I 139 148 MSGNAM I 149 158 MSGLIB I 159 168 NSWCTL |