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

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchEnterpriseLinux

SearchDataCenter

Close