COBOL sample:
IDENTIFICATION DIVISION.
PROGRAM-ID. COBTEST.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 FACTOR PIC ZZZZZZZZ9.
LINKAGE SECTION.
01 CB1.
05 PTR1 POINTER OCCURS 512.
01 CVT.
05 FILLER PIC X(868).
05 SVT_PTR POINTER.
01 SVT.
05 FILLER PIC X(416).
05 SVT-SUP-NORMALIZATION PIC 9(9) USAGE IS BINARY.
PROCEDURE DIVISION.
PSA SET ADDRESS OF CB1 TO NULL
CVT SET ADDRESS OF CVT TO PTR1(5)
SVT SET ADDRESS OF SVT TO SVT_PTR
MOVE SVT-SUP-NORMALIZATION TO FACTOR
DISPLAY FACTOR
STOP RUN.---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
