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

Start the conversation

Send me notifications when other members comment.

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

Please create a username to comment.

-ADS BY GOOGLE

SearchEnterpriseLinux

SearchDataCenter

Close