Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- PRINT CSECT 00304100
- STM 14,12,12(13) STORE REGISTERS 00304200
- LR 12,15 ENTRY LINKAGE 00304329
- USING PRINT,12 00304500
- LA 14,PRINTST LOAD STORAGE AREA 00304629
- ST 14,8(13) ADDRESS HERE 00304729
- ST 13,4(14) ADDRESS BACK 00304829
- LR 13,14 00304900
- LM 2,4,0(1) LOAD PARAM LIST 00305000
- L 3,0(0,3) LOAD EOT 00305103
- MVI LINE+1,C' ' 00305321
- MVC LINE+2(118),LINE+1 00305421
- CLI 0(4),C'2' CHECK HEADER ARGUMENT 00305628
- BE HEADER2 00305700
- XPRNT HEAD,120 PRINT HEADER 00305829
- MVI LINE+1,C' ' 00305921
- MVC LINE+2(118),LINE+1 00306021
- XPRNT FILLER,120 PRINT COLUMN TITLES 00306129
- MVI LINE+1,C' ' 00306221
- MVC LINE+2(118),LINE+1 00306322
- SR 7,7 INITIALIZE ENTRY/PG COUNTER 00306400
- LOOPTOP CR 2,3 TEST FOR EOT 00306500
- BC B'1000',LOOPBOT IF TRUE END 00306600
- MVC FNAME(10),0(2) PUT FIRST NAME IN FNAME 00306720
- MVC LNAME(10),10(2) PUT LAST NAME IN LNAME 00306820
- MVC ENDBAL(5),37(2) PUT BALANCE IN END BAL 00306920
- MVC BAL(13),=XL13'4020202021204B202040404040' 00307200
- EDMK BAL(13),ENDBAL 00307300
- BCTR 1,0 00307400
- MVI 0(1),C'$' 00307500
- MVC PASS(8),29(2) PUT PASSWORD IN PASS 00308007
- MVC EXDAT(5),42(2) PUT EXPIRATION DATE IN EXDAT 00308107
- MVC EXPD(12),=XL12'402020202020612020612020' 00309029
- ED EXPD(12),EXDAT 00309131
- MVC IDNUM(9),20(2) PUT ID NUMBER IN IDNUM 00310007
- CP ENDBAL(5),=P'0' 00311029
- BNH NEGBAL 00312029
- XPRNT LINE,120 PRINT VALS 00317100
- MVI LINE+1,C' ' DESTRUTIVE OVERLAP 00317200
- MVC LINE+2(118),LINE+1 00317300
- LA 2,48(0,2) ADVANCE POINTER 00317419
- A 7,=F'1' 00317500
- C 7,=F'24' 00317600
- BNL NEWPG 00317730
- B LOOPTOP 00317800
- NEGBAL DS 0H 00317900
- MVC BAL(13),=XL13'4020202021204B20204040C3D9' 00318020
- EDMK BAL(13),ENDBAL 00318100
- BCTR 1,0 00318200
- MVI 0(1),C'$' 00318300
- XPRNT LINE,120 PRINT VALS 00319000
- MVI LINE+1,C' ' DESTRUTIVE OVERLAP 00319100
- MVC LINE+2(118),LINE+1 00319200
- LA 2,48(0,2) ADVANCE POINTER 00319300
- A 7,=F'1' 00319400
- C 7,=F'24' 00319500
- BNL NEWPG 00319630
- B LOOPTOP 00319700
- NEWPG DS 0H 00319829
- M 6,=F'0' RESET COUNTER 00319930
- CLI 0(4),C'2' 00320030
- BE HEADER2 00320130
- MVI LINE+1,C' ' 00320228
- MVC LINE+2(118),LINE+1 00320328
- XPRNT HEAD,120 00320400
- MVI LINE+1,C' ' 00320527
- MVC LINE+2(118),LINE 00320627
- B LOOPTOP START NEXT LINE 00320700
- HEADER2 DS 0H 00320829
- MVI LINE+1,C' ' 00320927
- MVC LINE+2(118),LINE+1 00321027
- XPRNT HEAD2,120 00321129
- MVI LINE+1,C' ' 00321229
- MVC LINE+2(118),LINE+1 00321329
- XPRNT FILLER,120 00321400
- MVI LINE+1,C' ' 00321522
- MVC LINE+2(118),LINE+1 00321622
- B LOOPTOP 00321700
- LOOPBOT DS 0H 00321800
- L 13,4(13) 00322000
- LM 14,12,12(13) EXIT LINKAGE 00322100
- BR 14 BRANCH TO MAIN 00322200
- ***************PRINT SUBROUTINE CONST'S***************************** 00322300
- LTORG 00322400
- PRINTST DS 18F 00322500
- HEADVAL DS 1C VALUE OF HEADER ARGUMENT FOR COMPARISON 00322600
- HEAD DC C'1' 00322700
- DC 48C' ' 00322800
- DC CL27'FAMOUS NAMES -- CLIENT LIST' 00322900
- DC 44C' ' 00323000
- HEAD2 DC C'1' 00323100
- DC 48C' ' 00323200
- DC CL31'CLIENT LIST SORTED BY LAST NAME' 00323300
- DC 40C' ' 00323400
- FILLER DC C'-' 00323500
- DC 10C' ' 00323600
- DC CL10'FIRST NAME' 00323700
- DC 9C' ' 00323800
- DC CL10'LAST NAME ' 00323900
- DC 7C' ' 00324000
- DC CL12' BALANCE ' 00324100
- DC 8C' ' 00324200
- DC CL8'PASSWORD' 00324300
- DC 10C' ' 00324400
- DC CL10'EXP. DATE ' 00324500
- DC 9C' ' 00324600
- DC CL9'ID NUMBER' 00324700
- DC 7C' ' 00324800
- LINE DC C'0' 00324900
- DC 10C' ' 00325000
- FNAME DS 10C 00325100
- DC 9C' ' 00325200
- LNAME DS 10C 00325300
- DC 6C' ' 00325400
- BAL DS 13C 00325500
- DC 8C' ' 00325600
- PASS DS 8C 00325700
- DC 9C' ' 00325800
- EXPD DS 12C 00325929
- DC 8C' ' 00326029
- IDNUM DS 9C 00326100
- DC 7C' ' 00326200
- EXDAT DC PL5'000000000' 00326304
- ENDBAL DC PL5'000000000' 00326404
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement