C

QUSKFFFRðð

CASEQ

216

AGE

 

C

 

 

CAS

 

ERROR

 

C

 

 

END

 

 

 

C\

 

 

 

 

 

 

C\ increment LSTPTR2 to next variable length record

 

C\

 

 

 

 

 

 

C

 

 

ADD

QUSLFIRð2

X

 

C

 

 

EVAL

LSTPTR2 = %ADDR(ARR(X))

 

C

 

 

END

 

 

 

C

 

 

EXCEPT

PRTLIN

.26/

 

C\

 

 

 

 

 

 

C\ after each entry, increment LSTPTR to the next entry

 

C\

 

 

 

 

 

 

C

 

 

EVAL

LSTPTR = %ADDR(ARR(QUSSEE + 1)) .27/

C

 

 

END

 

 

 

C

 

 

END

 

 

 

C

 

 

ELSE

 

 

 

C

 

 

EXCEPT

LSTERR

.15/

 

C

 

 

END

 

 

 

C

 

 

ELSE

 

 

 

C

 

 

EXCEPT

HDRERR

.13/

 

C

 

 

END

 

 

 

C\

 

 

 

 

 

 

C\ Exit the program

 

 

 

 

C\

 

 

 

 

 

 

C

 

 

EVAL

\INLR = '1'

.28/

 

C

 

 

RETURN

 

 

 

C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

C

FILNAM

BEGSR

 

 

 

C\

 

 

 

 

 

 

C\ extract spooled file name for report

 

 

C\

 

 

 

 

 

 

C

 

 

MOVE

\BLANKS

PRTFIL

C

 

 

EVAL

PRTFIL = %SUBST(QUSSPLKI:17:QUSDLð2) .25/

C

 

 

ENDSR

 

 

 

C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

C

PAGES

 

BEGSR

 

 

 

C\

 

 

 

 

 

 

C\ extract number of pages for report

 

 

C\

 

 

 

 

 

 

C

 

 

EVAL

PAGESA = %SUBST(QUSSPLKI:17:QUSDLð2) .25/

C

 

 

ENDSR

 

 

 

C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

C

AGE

 

BEGSR

 

 

 

C\

 

 

 

 

 

 

C\ extract age of spooled file for report

 

 

C\

 

 

 

 

 

 

C

 

 

MOVE

\BLANKS

OPNDAT

7

C

 

 

EVAL

OPNDAT = %SUBST(QUSSPLKI:17:QUSDLð2) .25/

C

 

 

ENDSR

 

 

 

C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

C

ERROR

 

BEGSR

 

 

 

C

QUSKFFFRðð

DSPLY

 

 

 

C

 

 

EVAL

\INLR = '1'

 

 

C

 

 

RETURN

 

 

 

C

 

 

ENDSR

 

 

 

C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

OQPRINT

E

PRTLIN

1

 

 

B-46System API Programming V4R1

Page 324
Image 324
IBM Version 4 manual AGE CAS Error END, Eval LSTPTR2 = %ADDRARRX END Except Prtlin, Filnam Begsr, Move \BLANKS Prtfil Eval