SPLFX4RP - Print Spool File by Printer Control Char.
**********************************************************************
* *
* System....... Utilities *
* Program...... SPLFX4RP - Print Spool File by Printer Control Char. *
* Written by... Sudhakar Ramakrishnan Kunji *
* Date......... Dec 12, 2000 *
* *
* Program Description? *
* *
* This Program prints all the information contained in a workfile. *
* It uses RPG Logic cycle. *
* *
*? * * * * * * * * * Maintenance Log? * * * * * * * * * * * * * * *
* Req#. Date Programmer Modification Reason *
* *
* 04/15/01 Sud Kunji Introduced additional Features. *
**********************************************************************
* Work files *
FSPLFG4WP IP F 148 DISK
FSPLFX4WP O F 132 DISK
FQPRINT O F 132 PRINTER PRTCTL(LINE:*COMPAT)
F OFLIND(*INOF)
**********************************************************************
D LINE DS 9
D SPCBFR 1 1
D SKPBFR 3 4
**********************************************************************
ISPLFG4WP AA 01
I 14 15 SKPBFR
I 16 16 SPCBFR
I 17 148 DATA
I 05 136 DATAOUT
**********************************************************************
C *Entry Plist
C Parm P00_Mode 1
*
C Select
C When P00_Mode = '1'
C Except PRINT
C When P00_Mode = '2'
C Except WRITE
C EndSl
*
**********************************************************************
OQPRINT E PRINT
O DATA 132
OSPLFX4WP E WRITE
O DATAOUT 132