Back to tutorial
taderc99.cbl
identification division.
program-id. TADERC99.
environment division.
data division.
working-storage section.
LINKAGE SECTION.
01 DFHCOMMAREA.
02 CustomerNumber PIC X(5).
02 FirstName PIC A(15).
02 LastName PIC A(25).
02 Street PIC X(20).
02 City PIC A(20).
02 Country PIC A(10).
02 Phone PIC X(15).
02 PostalCode PIC X(7).
procedure division.
start-para.
IF CustomerNumber EQUAL '12345'
move 'Alan' to FirstName
move 'Turing' to LastName
move '1150 Eglinton Ave.' to Street
move 'New York' to City
move 'USA' to Country
move '(416) 444-4444' to Phone
move ' 94041' to PostalCode
ELSE IF CustomerNumber EQUAL '44444'
move 'Enrico' to FirstName
move 'Fermi' to LastName
move '11 Maple Ave.' to Street
move 'Austin' to City
move 'USA' to Country
move '(416) 444-4444' to Phone
move ' 10121' to PostalCode
ELSE
move 'Mary' to FirstName
move 'Poppins' to LastName
move '51 Sweets Dr.' to Street
move 'Chicago' to City
move 'USA' to Country
move '(416) 444-4444' to Phone
move ' 30326' to PostalCode
END-IF.
EXEC CICS RETURN
END-EXEC.
Back to tutorial