identification division.

program$-$id$.$ A$2$START.

date$-$written. date.

author. name.

sDescription:

$8$

environment division.

configuration section.

$***$

input$-$output section.

$**$

file$-$control.

input$-$file declaration

select input$-$file

assign to $??????$

organization is sequential.

$8$

output$-$file declaration

select output$-$file

assign to $??????$

organization is sequential.

$s$

data division.

file section.

$8$

fd input$-$file

recording mode is $F$

data record is input$-$line

record contains $29$ characters.

$8$

$01$ input$-$line.

$85????$

$85????$

$**$

fd output$-$file

recording mode is $F$

data record is output$-$line

record contains $???$ characters.

$

$81$ output$-$line

PIC $x(???).$

$s$

working$-$storage section.

procedure division.

$$e$0-$main.

$8$

goback.

end program A$2$START.

$//$CLYYYA$2,$ JOB

$\frac{\frac{?}{?}}{C}$OBOL, EXEC PROC $=$IGYWCL,

$//$ PARM. COBOL $=\text{'}$ TEST, RENT, APOST, OBJECT, NODYNAM, LIB, SIZE $(2097152)\text{'}$

$//$COBOL$.$STEPLIB DD DSN$=$IGY$630.$SIGYCOMP,

$\frac{\frac{?}{?}}{,}$DISP$=SHR$

$/*$ DECLARE DATASET THAT CONTAINS SOURCE CODE

$//$COBOL$.$SYSIN DD DSN$=$KC$03$YYY$.$DCMAFD$01.$ A$2.$ COBOL$($A$2$ILIST$),$

$\frac{\frac{?}{?}}{,}$DISP$=SHR$

$\frac{?}{?}**$

$/*$ DECLARE PDS MEMBER TO STORE LOAD MODULE

$//$LKED$.$SYSLMOD DD DSN$=$KCO$3$YYY$.$DCMAFD$01.$ COBOL. LOADLIB$($A$2$ILIST$),$

$\frac{\frac{?}{?}}{,}$DISP$=0LD$

$\frac{?}{?}**$

V$/$RYYYA$2,$ JOB

$/*$

$/*$ SET OUTFILE DD NAME TO MATCH YOUR ASSIGN NAME FOR FILE

$/*$ SET LRECL $???$ FOR OUTFILE TO MATCH YOUR OUTPUT RECORD SIZE

$\frac{?}{?}**$

$\frac{\frac{?}{?}}{A}2R,$ EXEC PGM$=$A$2$ILIST

$//$STEPLIB DD DSN$=$KC$03$YYY$.$DCMAFD$01.$ COBOL. LOADLIB,

$\frac{\frac{?}{?}}{,}$DISP$=SHR$

$//???????$ DD DSN$=$KC$03$YYY$.$DCMAFD$01.$A$2.$ILIST.DATA,

$//$ DISP$=SHR$

$//??????$ DD DSN$=$KC$03$YYY$.$DCMAFD$01.$A$2.$ILIST.OUT,

$//$ DISP$=($NEW$,$ CATLG, DELETE$),$

$//$ SPACE$=(TRK,(2,1)),$

$//$ RECFM$=$F$,$

$//$ LRECL$=???$

$\frac{?}{?}**$

h$113$IM $444000050000100000105112$BETH$168$CLAIRE $666000030000150000155221$TOM$310$SALLY $20700009000040000205311$GERRY $017999002000006000055390$CINDY $033751001000002000195445$SAMMY $055000013000015000105523$PHIL$555000040000125000205492$HARVEY $995001000500000750170066000100000300000200600$WILLIAM $099003000075000950085617$WANDA $099006000800001000080684$GEORGE $084564010000020000075698$IRVING $024567000300000900070776$MARK$700$ROSEMARYO$90999000075000200295811$ERIC$205002000999002000195715$LARRY $009999009750019750055753$RONNIE $999999099999999999999818$B$0$B$99499900040100090008099499800300000400090000002000010000900495852$FRANKIE $099999000001001000015875$DAVID $088888000$ B$000800085966$MARIO $075997020000030000235972$NANCY $765432200000400000225991$WAYNE $115998000999002000230994$CHRIS $275000060000080000170$