QDCRDEVD





V2R30 Retrouve description d'une unité


|
      ****************************************************************
      *                                                              *
      *  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




©AF400