LU 6.2 API Application Programmer's Reference Guide (30294-90008)

164 AppendixB
Sample Programs
COBOL II Program
011400 05 CREDIT-INFO-MASTER OCCURS 5 TIMES.
011500 10 CO-CODE-MASTER PIC X.
011600 10 BALANCE-MASTER PIC 9(4)V9(2).
011700 05 FILLER PIC X(14).
011800 05 RISK-CODE-MASTER PIC X(1).
011900*
012000 01 ERROR-RECORD REDEFINES MASTER-DATA.
012100 05 ERROR-CODE PIC 9(4).
012200 05 FILLER PIC X(76).
012300*
012400 01 TRANS-DATA.
012500 05 SOCSEC-TRANS.
012600 10 SOCSEC1-TRANS PIC X(3).
012700 10 SOCSEC2-TRANS PIC X(2).
012800 10 SOCSEC3-TRANS PIC X(4).
012900 05 NAME-TRANS.
013000 10 LAST-NAME-TRANS PIC X(10).
013100 10 FIRST-NAME-TRANS PIC X(10).
013200 10 MI-NAME-TRANS PIC X.
013300*
013400*
013500*----------------------------------------------------*
013600 PROCEDURE DIVISION.
013700*----------------------------------------------------*
013800*
013900*----------------------------------------------------*
014000 000000-MAINLINE SECTION.
014100*----------------------------------------------------*
014200*
014300 PERFORM 101000-BEGIN-HOUSEKEEPING.
014400*
014500 PERFORM 102000-PROCESS-RECORDS
014600 UNTIL QUIT-SW = YES-SW.
014700*
014800 PERFORM 103000-END-HOUSEKEEPING.
014900*
015000 000099-EXIT.
015100 STOP RUN.
015200*