Sample Programs (4 of 4)

This is the fourth of four sample programs and is the sub-routine which could be invoked by any of the preceding three methods.

The function of this routine is to accept a parameter containing up to 80 names, and sort them into collating sequence prior to printing the results.

What's in COPY REGS

Sample Sub-routine Program to be invoked by any dynamic method

PRINT NOGEN TITLE 'M05EXSUB - SUBROUTINE FOR M05EX1,2,3' M05EXSUB CSECT USING *,R15 INITIAL BASE REGISTER BEGIN B START DC AL1(8),CL8'M05EXSUB' 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 BAKR R14,0 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 LR R13,R15 CHAINING L R2,0(R1) R2 = NAME TABLE ADDRESS SORT LR R4,R2 R4 = START OF ARRAY. LA R3,8(,R4) R3 = START OF ARRAY + 1. TM FLAG,SORTED ARE NAMES IN ORDER? BO INFORM YEP - GO TELL ABOUT IT. OI FLAG,SORTED NO - INDICATE IT IS. SORT1 CLI 0(R3),X'FF' BE SORT CLC 0(8,R4),0(R3) NO - IS FIRST > SECOND? BH SWAP YEP - SWAP THEM SORT2 LA R4,8(,R4) NO - MOVE TO LA R3,8(,R3) NEXT B SORT1 PAIR. SWAP MVC TEMP,0(R4) SAVE FIRST NAME, THEN MVC 0(8,R4),0(R3) MOVE SECOND NAME FORWARD, MVC 0(8,R3),TEMP RETURN FIRST NAME TO ARRAY. NI FLAG,255-SORTED INDICATE NOT SORTED. B SORT2 GO GET NEXT PAIR. INFORM OPEN (OUTDCB,OUTPUT) OPEN OUTPUT FILE MVC OUTAREA+1(L'OUTAREA-1),0(R2) PUT OUTDCB,OUTAREA AND PRINT IT. CLOSE OUTDCB CLOSE OUTPUT FILE PR TEMP DS CL8 SWITCH NAME AREA. FLAG DC X'00' INDICATE NOT SORTED SORTED EQU X'01' INDICATE SORTED. OUTDCB DCB DSORG=PS,MACRF=PM,DDNAME=OUTDD OUTAREA DC CL133' ' COPY REGS END , PHYSICAL END OF THE PROGRAM