ILE COBOL 解説書


属性データ形式

属性データのレイアウトおよび値は、システムによって異なります。 以下の形式は ILE COBOL 言語で使用されます。

装置タイプおよびレイアウトの完全なリストについては、Web サイト http://www.ibm.com/eserver/iseries/infocenter にある、iSeries Information Center の「データベースおよびファイル・システム」カテゴリーの中の『DB2 Universal Database for iSeries』セクション を参照してください。

  01  DISPLAY-ICF-ATTRIBUTES.
     02  PROGRAM-DEVICE-NAME        PIC X(10).
     02  DEVICE-DESCRIPTION-NAME    PIC X(10).
     02  USER-ID                    PIC X(10).
     02  DEVICE-CLASS               PIC X.
*          D - DISPLAY
*          I - ICF
*          U - UNKNOWN
     02  DEVICE-TYPE                PIC X(6).
*          '      ' - UNKNOWN
*          '3179  ' - 3179 DISPLAY
*          '317902' - 3179 MOD 2 DISPLAY
*          '3180  ' - 3180 DISPLAY
*          '3196A ' - 3196 MOD A1/A2 DISPLAY
*          '3196B ' - 3196 MOD B1/B2 DISPLAY
*          '3197C1' - 3197 MOD C1 DISPLAY
*          '3197C2' - 3197 MOD C2 DISPLAY
*          '3197D1' - 3197 MOD D1 DISPLAY
*          '3197D2' - 3197 MOD D2 DISPLAY
*          '3197W1' - 3197 MOD W1 DISPLAY
*          '3197W2' - 3197 MOD W2 DISPLAY
*          '3270  ' - 3270 DISPLAY
*          '3476EA' - 3476 MOD EA DISPLAY
*          '3476EC' - 3476 MOD EC DISPLAY
*          '3477FG' - 3477 MOD FG DISPLAY
*          '3477FA' - 3477 MOD FA DISPLAY
*          '3477FC' - 3477 MOD FC DISPLAY
*          '3477FD' - 3477 MOD FD DISPLAY
*          '3477FW' - 3477 MOD FW DISPLAY
*          '3477FE' - 3477 MOD FE DISPLAY
*          '525111' - 5251 DISPLAY
*          '5291  ' - 5291 DISPLAY
*          '5292  ' - 5292 DISPLAY
*          '529202' - 5292 MOD 2 DISPLAY
*          '5555B1' - 5555 MOD B01 DISPLAY
*          '5555C1' - 5555 MOD C01 DISPLAY
*          '5555E1' - 5555 MOD E01 DISPLAY
*          '5555F1' - 5555 MOD F01 DISPLAY
*          '5555G1' - 5555 MOD G01 DISPLAY
*          '5555G2' - 5555 MOD G02 DISPLAY
*          '3486BA' - 3486 MOD BA DISPLAY
*          '3487HA' - 3487 MOD HA DISPLAY
*          '3487HG' - 3487 MOD HG DISPLAY
*          '3487HW' - 3487 MOD HW DISPLAY
*          '3487HC' - 3487 MOD HC DISPLAY
*          'DHCF77' - 3277 DHCF DISPLAY
*          'DHCF78' - 3278 DHCF DISPLAY
*          'DHCF79' - 3279 DHCF DISPLAY
*          'APPC  ' - ADVANCED-PROGRAM-TO-PROGRAM COMMUNICATIONS DEVICE
*          'ASYNC ' - ASYNCHRONOUS COMMUNICATION DEVICE
*          'BSC   ' - BISYNCHRONOUS COMMUNICATION
*          'BSCEL ' - BSCEL COMMUNICATION DEVICE
*          'FINANC' - ICF FINANCE COMMUNICATION DEVICE
*          'INTRA ' - INTRA SYSTEMS COMMUNICATION
*          'LU1   ' - LU1 COMMUNICATION DEVICE
*          'RETAIL' - RETAIL COMMUNICATION DEVICE
*          'SNUF  ' - SNA UPLINE FACILITY COMMUNICATION DEVICE
*          'NVT   ' - NETWORK VIRTUAL TERMINAL (NVT)
     02  REQUESTOR-DEVICE           PIC X.
*          N - NOT A REQUESTOR DEVICE
*          Y - A REQUESTOR DEVICE
     02  ACQUIRE-STATUS             PIC X.
*          N - DEVICE NOT ACQUIRED
*          Y - DEVICE ACQUIRED
     02  INVITE-STATUS              PIC X.
*          N - DEVICE NOT INVITED
*          Y - DEVICE INVITED
     02  DATA-AVAILABLE-STATUS      PIC X.
*          N - NO DATA IS AVAILABLE
*          Y - INVITED DATA AVAILABLE
     02  DISPLAY-DIMENSIONS.
         03  NUMBER-OF-ROWS         PIC S9(4)  COMP-4.
         03  NUMBER-OF-COLUMNS      PIC S9(4)  COMP-4.
     02  DISPLAY-ALLOW-BLINK        PIC X.
*          N - NOT BLINK CAPABLE
*          Y - BLINK CAPABLE
     02  ONLINE-OFFLINE-STATUS      PIC X.
*          O - DISPLAY IS ONLINE
*          F - DISPLAY IS OFFLINE
     02  DISPLAY-LOCATION           PIC X.
*          L - LOCAL DISPLAY
*          R - REMOTE DISPLAY
     02  DISPLAY-TYPE               PIC X.
*          A - ALPHANUMERIC OR KATAKANA
*          I - IDEOGRAPHIC
*          G - GRAPHIC DBCS
     02  KEYBOARD-TYPE              PIC X.
*          A - ALPHANUMERIC OR KATAKANA KEYBOARD
*          I - IDEOGRAPHIC KEYBOARD
     02  CONVERSATION-STATUS        PIC X.
*          N - CONVERSATION NOT INITIATED
*          Y - CONVERSATION INITIATED
*          (VALID FOR ALL COMMUNICATION TYPES).
     02  SYNCHRONIZATION-LEVEL      PIC X.
*          0 - SYNCHRONIZATION LEVEL 0  (SYNLVL(*NONE))
*          1 - SYNCHRONIZATION LEVEL 1  (SYNLVL(*CONFIRM))
*          (APPC APPLICATIONS ONLY)
*          2 - SYNCHRONIZATION LEVEL 2  (SYNLVL(*COMMIT))
     02  CONVERSATION-USED          PIC X.
*          M - MAPPED CONVERSATION
*          B - BASIC CONVERSATION
*          (APPC APPLICATIONS ONLY)
     02  REMOTE-LOCATION-NAME       PIC X(8).
*          (ALL COMMUNICATION TYPES)
     02  LOCAL-LU-NAME              PIC X(8).
*          (APPC APPLICATIONS ONLY)
     02  LOCAL-NETWORK-ID           PIC X(8).
*          (APPC APPLICATIONS ONLY)
     02  REMOTE-LU-NAME             PIC X(8)
*          (APPC APPLICATIONS ONLY)
     02  REMOTE-NETWORK-ID          PIC X(8).
*          (APPC APPLICATIONS ONLY)
     02  MODE                       PIC X(8).
*          (APPC APPLICATIONS ONLY)
     02  WORKSTATION-CONTROLLER     PIC X.
*          N - NOT ATTACHED
*          1 - ATTACHED TO CONTROLLER 1
*          2 - ATTACHED TO CONTROLLER 2
*          3 - ATTACHED TO CONTROLLER 3
     02  DISPLAY-IS-COLOR           PIC X.
*          Y - YES
*          N - NO
     02  DISPLAY-ALLOWS-GRID-LINES  PIC X.
*          N - NO
*          1 - YES
     02  LU6-CONVERSATION-STATE     PIC X.
*          '00'X - RESET
*          '01'X - SEND
*          '02'X - DEFER RECEIVED
*          '03'X - DEFER DEALLOCATE
*          '04'X - RECEIVE
*          '05'X - CONFIRM
*          '06'X - CONFIRM SEND
*          '07'X - CONFIRM DEALLOCATE
*          '08'X - COMMIT
*          '09'X - COMMIT SEND
*          '0A'X - COMMIT DEALLOCATE
*          '0B'X - DEALLOCATE
*          '0C'X - ROLLBACK REQUIRED
     02  LU6-CONVERSATION-CORRELATE PIC X(8).
     02  FILLER                     PIC X(31).
*              RESERVED
     02  CALLING-PARTY-ID.
         03  REMOTE-NUMBER-LENGTH       PIC S9(4)    COMP-4.
         03  REMOTE-NUMBERING-TYPE      PIC X(2).
*              00 - UNKNOWN
*              01 - INTERNATIONAL
*              02 - NATIONAL
*              03 - NETWORK-SPECIFIC
*              04 - SUBSCRIBER
*              06 - ABBREVIATED
*              07 - RESERVED
         03  REMOTE-NUMBERING-PLAN      PIC X(2).
*              00 - UNKNOWN
*              01 - ISDN/TELEPHONY
*              03 - DATA
*              04 - TELEX
*              08 - NATIONAL STANDARD
*              09 - PRIVATE
*              15 - RESERVED
        03  REMOTE-NUMBER              PIC X(40).
        03  FILLER                     PIC X(4).
*              RESERVED
        03  REMOTE-SUBADDR-LENGTH      PIC S9(4)    COMP-4.
        03  REMOTE-SUBADDR-TYPE        PIC X(2).
*              00 - NSAP
*              02 - USER SPECIFIED
        03  REMOTE-SUBADDRESS          PIC X(40).
        03  FILLER                     PIC X.
*              RESERVED
        03  CALL-TYPE                  PIC X.
*              0 - CALL IN
*              1 - CALL OUT
*              2 - NON-ISDN
        03  REMOTE-NETADDR-LENGTH      PIC S9(4)    COMP-4.
        03  REMOTE-NETADDRESS          PIC X(32).
        03  FILLER                     PIC X(4).
*              RESERVED
        03  REMOTE-ADDREXT-LENGTH      PIC S9(4)    COMP-4.
        03  REMOTE-ADDREXT-TYPE        PIC X.
*              0 - ISO 8348/AD2
*              2 - NOT ISO 8348/AD2
        03  REMOTE-ADDRESS-EXTENSION   PIC X(40).
        03  FILLER                     PIC X(4).
*              RESERVED
        03  X25-CALL-TYPE              PIC X.
*              0 - INCOMING SVC
*              1 - OUTGOING SVC
*              2 - NOT X25 SVC
     02  TRANSACTION-PROGRAM-NAME       PIC X(64).
     02  LU6-PROTECTED-LUWID.
        03  LENGTH-OF-PROT-LUWID-FIELDS       PIC S9(4)    COMP-4.
        03  FILLER REDEFINES LENGTH-OF-PROT-LUWID-FIELDS.
            05  LENGTH-OF-PROT-LUWID-FIELD    PIC X.
            05  LENGTH-OF-PROT-LU-NAME        PIC X.
        03  NETWORK-QUAL-PROT-LU-NAME         PIC X(17).
        03  PROTECTED-INST-SEQ-NUMBERS.
            05  PROT-INSTANCE-NUMBER          PIC X(6).
            05  PROT-SEQUENCE-NUMBER          PIC S9(4)    COMP-4.
     02  LU6-UNPROTECTED-LUWID.
        03  LENGTH-OF-UNPROT-LUWID-FIELDS     PIC S9(4)    COMP-4.
        03  FILLER REDEFINES LENGTH-OF-UNPROT-LUWID-FIELDS.
            05  LENGTH-OF-UNPROT-LUWID-FIELD  PIC X.
            05  LENGTH-OF-UNPROT-LU-NAME      PIC X.
        03  NETWORK-QUAL-UNPROT-LU-NAME       PIC X(17).
        03  UNPROTECTED-INST-SEQ-NUMBERS.
            05  UNPROT-INSTANCE-NUMBER        PIC X(6).
            05  UNPROT-SEQUENCE-NUMBER        PIC S9(4)    COMP-4.


[ ページのトップ | 前ページ | 次ページ | 目次 | 索引 ]