£±£¶¿Ê¤ò£±£°¿Ê¤ËÊÑ´¹¤¹¤ëÊýË¡

4:Re:£±£¶¿Ê¤ò£±£°¿Ê¤ËÊÑ´¹¤¹¤ëÊýË¡
¥¼¥í 08/18 10:18



USAGE COMP-1


01 FDF-RECORDSIZEPIC X(2).'0256'(h)
01 WORK-RECORDSIZE.
02 WORK-RSIZ1PIC X(5).
02 WORK-RSIZ2REDEFINES WORK-RSIZ1 USAGE COMP-1.

MOVE FDF-RECORDSIZE TO WORK-RSIZ2.


WORK-RSIZ1256d

USAGE COMP-1ăı

ƒ±åèƒÉ
ƒ±ƒ±„Véê
ā



01 H-TABLE  PIC X(16) VALUE ""000102030D0EOF"".
01 H-TBLREDEFINES H-TABLE PIC X(1) OCCURS 16 TIMES.
01 D-TABLE  PIC X(32) VALUE "000102030D0E0F".
01 D-TBLREDEFINES D-TABLE PIC X(2) OCCURS 16 TIMES.



Á°¼¡1-¿·½ñÈÄ

BluesBB ©Sting_Band