Sample Programs (3 of 4)

This is the third of four sample programs, this one using the XCTL macro.

The fourth sample is the sub-routine which could be invoked by any of the preceding three methods.

The program reads the input stream to build a table of up to 80 names, which it then passes to the next program for sorting and reporting.

What's in COPY REGS

Sample Program using the XCTL macro

PRINT NOGEN TITLE 'M05EX3 - DYNAMIC EXERCISE - XCTL METHOD' M05EX3 CSECT USING *,R15 INITIAL BASE REGISTER BEGIN B START DC AL1(8),CL8'M05EX3' PROGRAM NAME FOR DEBUGGING *--------M-Y----S-A-V-E----A-R-E-A--------------------------* SAVEAREA DS F RESERVED FOR PLI * PRESAVE DC XL8'0' ADDR OF PREVIOUS SAVE AREA* NEXTSAVE DC XL8'0' ADDR OF NEXT SAVE AREA * SREG14 DC XL8'0' GENERAL * SREG15 DC XL8'0' PURPOSE * SREG0 DC 13XL8'0' REG SAVE * SAVEEND DS 0H * *--------E-N-D----O-F----S-A-V-E----A-R-E-A-----------------* DROP R15 DUMP INITIAL BASE REGISTER START STM R14,R12,12(R13) SAVE THE REGISTERS ON ENTRY. LR R12,R15 SET UP MY USING BEGIN,R12 BASE REGISTER ST R13,PRESAVE PERFORM SAVE LA R15,SAVEAREA AREA ST R15,8(R13) CHAINING LR R13,R15 R13 = ADDR OF MY SAVE AREA. OPEN (INDCB,INPUT) OPEN INPUT FILE LA R5,84(0,0) FIX STORAGE SIZE. ST R5,MYSIZE SAVE SIZE OF AREA. STORAGE OBTAIN,LENGTH=(5),ADDR=MYSTORE GET STORAGE L R15,MYSTORE LA R14,4(R15) ST R14,0(R15) LR R4,R14 R4 - START OF NAME ARRAY USING NAMETAB,R4 GET ARRAY ADDRESSABILITY MVI 0(R4),X'FF' FILL NAMETAB MVC 1(79,R4),0(R4) WITH HIGH-VALUES READREC2 GET INDCB,INAREA READ A RECORD MVC NAME,INAREA NO - SLOT NAME IN ARRAY, LA R4,8(,R4) POINT TO NEXT ARRAY SLOT, B READREC2 REPEAT TILL EXHAUSTED. READDONE CLOSE INDCB CLOSE INPUT FILE L R1,MYSTORE GET ARRAY ADDRESS XCTL (2,12),EP=M05EXSUB GO SORT WITHOUT RETURN L R13,PRESAVE R13 = PREV SAVE AREA ADDR. RETURN (14,12),RC=0 RESTORE REGISTERS LTORG SAVECNT DS F SAVED RECORD COUNT SIZES DC AL4(*-*),AL4(*-*) STORAGE SIZE (MIN/MAX) MYSTORE DC AL4(*-*) ADDRESS OF GOTTEN AREA MYSIZE DC AL4(*-*) SIZE OF GOTTEN AREA INDCB DCB MACRF=GM,DDNAME=INDD,EODAD=READDONE,DSORG=PS INAREA DS CL80 *--------M-Y----N-A-M-E----T-A-B-L-E----M-A-P------------* NAMETAB DSECT * NAME DS CL8 ANY GIVEN NAME HERE * M05EX3 CSECT END OF NAME TABLE. * *--------E-N-D----O-F----N-A-M-E----T-A-B-L-E----M-A-P---* COPY REGS END , PHYSICAL END OF THE PROGRAM