QSPOPNSP - Spool File APIs

QSPOPNSP - Spool File APIs
****************************************************************
* Description.. Get and Put Spooled File API Example *
* Program Name. SPLFAPI *
* Author....... Bradley V. Stone *
* BVS/Tools - *
****************************************************************
D SplfAtt DS
D AtrData 1 3800
*
D APIError DS
D EBytesP          1  4B 0  INZ(40)
D EBytesA          5  8B 0
D EMsgID           9 15
D EReserverd      16 16
D EData           17 56
*
D DS
D Splf#b           1  4B 0
D CSpl#            1  4
*
D SplSpc1   C    CONST('SPL001US QTEMP ')
*
D SpcPtr S
*
D SpcDes S 50 INZ('User Space Spool APIs')
D SpcName S 20
D SpcAtr S 10
D SpcAut S 10 INZ('*ALL')
D SpcSiz S 9B 0 INZ(32767)
D SpcFormat S 8
D SpcInv S 1
*
D JobName S 26 INZ
D JobID S 26 INZ
D SplFID S 26 INZ
D EndOper S 10 INZ('*WAIT')
D RecLen S 9B 0 INZ(%size(SplfAtt))
D SplfIH S 9B 0
D SplfOH S 9B 0
D #Buff S 9B 0
D Buffer# S 9B 0
D Splf#d S 5 0
*
D File S 10
D Job S 10
D User S 10
D Job# S 6
D Splf#x S 5
****************************************************************
C           EXSR $ONE
*
C           SETON LR
**************************************************************
* Copy Spooled File To Duplicate Spooled File
*
*************************************************************
C      $ONE BEGSR
*
C           EXSR $RTVSPLFA
C           eval SpcName = SplSpc1
C           EXSR $CRTSP
C           EXSR $CREATESF
C           EXSR $OPENSF
C           EXSR $GETSF
C           EXSR $PUTSF
C           EXSR $CLOSESF
C*          EXSR $DLTSP
*
C           ENDSR
**************************************************************
* Create Spooled File
*
**************************************************************
C $CREATESF BEGSR
*
C           CALL 'QSPCRTSP'
C                 PARM                SplfOH
C                 PARM                SplfAtt
C                 PARM                APIError
*
C           ENDSR
**************************************************************
* Open Spooled File *
**************************************************************
C  $OPENSF BEGSR
*
           eval #Buff = -1
*
C          CALL 'QSPOPNSP'
C               PARM              SplfIH
C               PARM              JobName
C               PARM              JobID
C               PARM              SplfID
C               PARM              File
C               PARM              Splf#b
C               PARM #Buff
C                  PARM APIError
*
*
C            ENDSR
**************************************************************
* Get Spooled File Data *
**************************************************************
C          $GETSF BEGSR
*
C                 eval Buffer# = -1
*
C                 CALL 'QSPGETSP'
C                      PARM            SplfIH
C                      PARM            SpcName
C                      PARM 'SPFR0200' SpcFormat
C                      PARM            Buffer#
C                      PARM            EndOper
C                      PARM            APIError
*
C                 ENDSR
**************************************************************
* Put Spooled File Data *
**************************************************************
C        $PUTSF BEGSR
*
C               CALL 'QSPPUTSP'
C                    PARM             SplfOH
C                    PARM             SpcName
C                    PARM             APIError
*
C               ENDSR
**************************************************************
* Close Spooled File *
**************************************************************
C      $CLOSESF BEGSR
*
C               CALL 'QSPCLOSP'
C                    PARM            SplfIH
C                    PARM            APIError
*
C               CALL 'QSPCLOSP'
C                    PARM            SplfOH
C                    PARM            APIError
*
C              ENDSR
**************************************************************
* Call Retrieve Spooled File Attributes API *
**************************************************************
C     $RTVSPLFA BEGSR
*
C               eval JobName = Job + User + Job#
C               MOVE Splf#x     Splf#d
C               eval Splf#b = Splf#d
*
C               CALL 'QUSRSPLA'
C                    PARM            SplfAtt
C                    PARM            RecLen
C                    PARM 'SPLA0200' SpcFormat
C                    PARM            JobName
C                    PARM            JobID
C                    PARM            SplfID
C                    PARM            File
C                    PARM            Splf#b
*
C                    ENDSR
**************************************************************
* Create User Space *
**************************************************************
C      $CRTSP BEGSR
*
C             CALL 'QUSCRTUS'
C                  PARM             SpcName
C                  PARM             SpcAtr
C                  PARM             SpcSiz
C                  PARM             SpcInv
C                  PARM             SpcAut
C                  PARM             SpcDes
*
C            ENDSR
**************************************************************
* Retrieve Pointer To User Space *
**************************************************************
C     $RTVSP BEGSR
*
C            CALL 'QUSPTRUS'
C                 PARM             SpcName
C                 PARM             SpcPtr
*
C            ENDSR
**************************************************************
* Delete User Space *
**************************************************************
C    $DLTSP  BEGSR
C            CALL 'QUSDLTUS'
C                 PARM             SpcName
C                 PARM             APIError
*
C            ENDSR
***************************************************************
* INITIALIZATION SUBROUTINE *
***************************************************************
C   *INZSR   BEGSR
*
C            *ENTRY PLIST
C                   PARM           File
C                   PARM           Job
C                   PARM           User
C                   PARM           Job#
C                   PARM           Splf#x
*
C            ENDSR

Thanks to Bradley V. Stone