Using KSAM/XL and KSAM 64 (32650-90886)

Appendix A 185
COBOL Intrinsics
KSAM Logical Record Pointer
A File Description in Working Storage for Figure A-2 appears below.
File Description in Working Storage (Figure A-2).
WORKING-STORAGE SECTION
77 RECSIZEPIC S9(4)COMP VALUE 74.
77 RESULTPIC 9(4)VALUE 0.
01 REC.
03 FILLERPIC XXVALUE SPACES.
03 NAMEPIC X(20).
03 PHONEPIC X(8).
03 OTHERDATAPIC X(44).
01 DAT.
03 NAMEPIC X(20).
03 PHONEPIC X(8).
03 OTHERDATAPIC X(44).
01 FILETABLE.
03 FILETABLEPIC S9(4)COMP VALUE 0.
03 FILENAMEPIC X(8)VALUE "KSAMFILE".
03 I-O-TYPEPIC S9(4)COMP VALUE 0.
03 A-MODEPIC S9(4)COMP VALUE 0.
03 PREV-OPPIC S9(4)COMP VALUE 0.
01 STAT.
03 STATUS-KEY-1PIC X.
03 STATUS-KEY-2PIC X.