IDENTIFICATION DIVISION.
program-id. pgm1.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
DATA DIVISION.
LINKAGE SECTION.
01 IN-OUT-MSG.
05 WS-LL PIC S9(3) COMP VALUE +0.
05 WS-ZZ PIC S9(3) COMP VALUE +0.
05 WS-TRCD PIC X(5).
05 INDX PIC 99.
05 WS-CUSTOMER OCCURS 1 TO 8 TIMES
DEPENDING ON INDX.
15 WS-CUST-NUMBER PIC X(5).
15 WS-CUST-NAME PIC X(20).
05 WS-FUNC-CODE PIC X(6).
PROCEDURE DIVISION.
| パラメーター | 値 |
|---|---|
| プラットフォーム名 | Z/OS |
| コード・ページ | IBM-037 |
| 浮動小数点フォーマット名 | IBM® Hexadecimal |
| 外部 10 進符号 | EBCDIC |
| エンディアン名 | Big |
| リモート整数エンディアン名 | Big |
| Quote 名 | DOUBLE |
| Trunc 名 | STD |
| Nsymbol 名 | DBCS |