I am having a heck of a time with this program. I have attached my program. I tried to run it on the mainframe and it was looping like crazy. :rolleyes: Can anyone give me some ideas?! :?:
lrea_fallon 0 Newbie Poster
The attachment preview is chopped off after the first 10 KB. Please download the entire file.
* $$ JOB JNM=ABALKF01,CLASS=C,DISP=D
* $$ LST LST=SYSLST,CLASS=Q,DISP=D,DEST=*
// JOB ABALKF01
// OPTION LINK,PARTDUMP
// EXEC ASMA90
PRINT NOGEN
TITLE 'LAURA FALLON PROG 1'
ABALKF01 START X'500078'
BALR 3,0
USING *,3
OPEN CARD,PRINT
GET CARD
MVC PRTLN,BLANK
MVI PRTLN,C'1'
MVC PAGECONT,=X'2020'
ED PAGECONT,PAGECNT
MVC PRTLN,HEADING1
PUT PRINT
MVC PRTLN,BLANK
MVI PRTLN,C'0'
AP COUNT,ONE
MVC PRTLN,HEADING2
PUT PRINT
MVC PRTLN,BLANK
MVI PRTLN,C'0'
AP COUNT,ONE
HERE EQU *
CP COUNT,MAXCOUNT
BH PAGE
BACK MVC SLNUMOUT,SALNUM
MVC CSNUMOUT,CUSNUM
MVC IVNUMOUT,INVNUM
MVC AMNTOUT,NIAED
ED AMNTOUT,AMOUNT
MVC RATEOUT,RATEED
ED RATEOUT,RATE
PACK PAMOUNT,AMOUNT
PACK PRATE,RATE
AP TOTAMNT,PAMOUNT
AP TOTRATE,PRATE
MP PAMOUNT,PRATE
MVO PAMOUNT,PAMOUNT(8)
MVO PAMOUNT,PAMOUNT(8)
AP TOTCOMM,PAMOUNT
MVC COMMOUT,COMMED
ED COMMOUT,PAMOUNT
MVC PRTLN,DETAIL
PUT PRINT
MVC PRTLN,BLANK
MVI PRTLN,C'0'
AP COUNT,ONE
B HERE
PAGE EQU *
ZAP COUNT,ZEROS
AP PAGECNT,ONE
MVI PRTLN,C'1'
MVC PAGECONT,=X'2020'
ED PAGECONT,PAGECNT
MVC PRTLN,HEADING1
PUT PRINT
MVC PRTLN,BLANK
MVI PRTLN,C'0'
AP COUNT,ONE
MVC PRTLN,HEADING2
PUT PRINT
MVC PRTLN,BLANK
MVI PRTLN,C'0'
AP COUNT,ONE
B BACK
ENDIT EQU *
MVC ATOTOUT,NIATOTED
ED ATOTOUT,TOTAMNT
MVC RTOTOUT,RTOTED
ED RTOTOUT,TOTRATE
MVC CTOTOUT,COMTOTED
ED CTOTOUT,TOTAMNT
MVC PRTLN,TOTLINE
PUT PRINT
CLOSE CARD,PRINT
EOJ
CARD DTFCD IOAREA1=CARDIN,DEVADDR=SYSIPT,EOFADDR=ENDIT
PRINT DTFPR IOAREA1=PRTLN,DEVADDR=SYSLST,CTLCHR=ASA,BLKSIZE=133
CARDIN DS 0CL80
INVNUM DS CL5
DS CL7
CUSNUM DS CL7
DS CL15
AMOUNT DS CL8
SALNUM DS CL4
DS CL7
RATE DS CL2
DS CL25
* END CARD DEFF
* PDUMP TOTCOMM,PAMOUNT
* WORKING STORAGE
TOTCOMM DC PL11'0'
TOTAMNT DC PL13'0'
TOTRATE DC PL7'0'
PRATE DC PL3'0'
PAMOUNT DC PL9'0'
PAGECNT DC P'01'
COUNT DC PL2'00'
MAXCOUNT DC P'39'
ZEROS DC P'00'
* EDIT PATTERNS
NIAED DC C'402020202020214B2020'
RATEED DC C'404B2020'
COMMED DC C'4020202020214B2020'
NIATOTED DC C'4020202020202020202020214B2020'
RTOTED DC C'40202020214B2020'
COMTOTED DC C'4020202020202020214B2020'
ONE DC PL1'1'
BLANK DC C' '
PRTLN DS CL133
* HEADING LINE 1 DEFF
HEADING1 DS 0CL133
DC CL50' '
DC C'STUFF-4-SALE'
DC CL8' '
DC C'PAGE:'
PAGECONT DC CL2'0'
DC CL55' '
* HEADING LINE 2 DEFF
HEADING2 DS 0CL133
DC CL10' '
DC C'SALESMAN NUMBER'
DC CL3' '
DC C'CUSTOMER NUMBER'
DC CL3' '
DC C'INVOICE NUMBER'
DC CL3' '
DC C'NET INVOICE AMOUNT'
DC CL3' '
DC C'COMMISSION RATE'
DC CL3' '
DC C'COMMISSION AMOUNT'
DC CL13' '
- 1 Contributor
- 0 Replies
- 71 Views
Be a part of the DaniWeb community
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.