Article

SPLFX4RP - Print Spool File by Printer Control Char.

Sudhakar Kunji
      **********************************************************************
      *                                                                    *
      * 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

There are Comments. Add yours.

 
TIP: Want to include a code block in your comment? Use <pre> or <code> tags around the desired text. Ex: <code>insert code</code>

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
Sort by: OldestNewest

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: