IBM Version 4 Universal Remote User Manual


  Open as PDF
of 505
 
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 1
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-46 System API Programming V4R1
 previous next