Sample Programs (1 of 4)

This is the first of four sample programs, this one using the LINK 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 LINK macro

PRINT NOGEN TITLE 'M05EX1 - DYNAMIC LINKAGE - LINK METHOD' M05EX1 CSECT USING *,R15 INITIAL BASE REGISTER BEGIN B START DC AL1(8),CL8'M05EX1' 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 THE INPUT FILE. LA R4,NAMETAB R4 = START OF ARRAY. READREC GET INDCB,INAREA READ A RECORD MVC 0(8,R4),INAREA NO - SLOT NAME IN ARRAY, LA R4,8(,R4) POINT TO NEXT ARRAY SLOT, B READREC REPEAT TILL EXHAUSTED. READDONE CLOSE INDCB LINK EP=M05EXSUB,PARAM=(NAMETAB) L R13,PRESAVE R13 = PREV SAVE AREA ADDR. RETURN (14,12),RC=0 RESTORE REGISTERS LTORG INDCB DCB MACRF=GM,EODAD=READDONE,DDNAME=INDD,DSORG=PS INAREA DS CL80 *--------M-Y----N-A-M-E----T-A-B-L-E------------------------* NAMETAB DC 8X'FF' FIRST ENTRY - HIGH VALUES * DC 8XL8'FFFFFFFFFFFFFFFF' FURTHER 8 ENTRIES. * NAMETABE DC XL1'FF' END OF NAME TABLE. * *--------E-N-D----O-F----N-A-M-E----T-A-B-L-E---------------* COPY REGS END , PHYSICAL END OF THE PROGRAM