|
midrange.com
Bill,
SplfNumber should be defined as 9B 0 or 10I 0 giving a 4-byte field.
Helge
"Hopkins, Bill" <BHopkins@saurerinc.com> wrote:
> I know this was talk about before and there were great
> responses.
> I learned!! Good thing. But please explain <<<<<<<<<<
> points below
> (SplfNumber 8B 0)
>
> Still learning so please be kind :)
>
> Bill H.
>
>
> API - QUSRSPLA from IBM site.
> Required Parameter Group:
>
>
> 1 Receiver variable Output Char(*)
> 2 Length of receiver variable Input Binary(4)
> <<<<<<<<< if this
> should be 9B 10I or 10U
> 3 Format name Input Char(8)
> 4 Qualified job name Input Char(26)
> 5 Internal job identifier Input Char(16)
> 6 Internal spooled file identifier Input Char(16)
> 7 Spooled file name Input Char(10)
> 8 Spooled file number Input Binary(4)
> <<<<<<<<< should this
> not be also ?????????
>
> *** look at code given below
> Optional Parameter:
>
> 9 Error Code I/O Char(*)
>
>
>
> H ACTGRP(*CALLER) BNDDIR('TAYBND') DFTACTGRP(*NO)
>
> *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
> *-*-*-*-*-*-*
> * PROGRAM . . . . . CUGPRCSMON
> *
> * CREATED ON . . . 03/29/2002
> * BY . . . Michael N. Wills
> *
> * DESCRIPTION . . . Process the request to create a
> PDF file from the
> * CUGMONPDFQ program
>
> *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
> *-*-*-*-*-*-*
> * File for FTP Script
> F*FTPSCRIPT UF A E DISK
> FFTPSCRIPT UF A E DISK USROPN
>
> *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
> *-*-*-*-*-*-*
> * DataQ Fields
> D DataQTxt S 76
> D DataQueue DS
> D Function 10A
> *SPOOL
> D RecType 2A
> 01
> D JobName 10A
> Job Name
> D JobUserName 10A
> Job User Name
> D JobNumber 6A
> Job Number
> D SplfName 10A
> Spool File Name
> D SplfNumber 8B 0 <<<<<<<<<<
> ?????????????
>
> Spool File Number
> D OutqName 10A
> Output Queue Name
> D OutqLib 10A
> Output Queue Library
>
> * PDF Information
> D FileName S 64
> PDF File Name
> D DirName S 64
> D Path S 128
> Path Name
>
> * Spool File Information
> D Length S 4B 0 Inz(X'000005B8')
> D FormatName S 8 Inz('SPLA0100')
> D JobID S 16 Inz(*Blanks)
> D SplfID S 16 Inz(*Blanks)
> D QJob S 26
> D RecDS DS
> D Reciever 1 1464
> D UsrDta 91 100A
> D NumPgs 141 144B 0
>
> * Misc
> D Apos C Const(X'7D')
> D PDFto S 1
> A = IFS
>
> T = TCOFFICE
>
> I = INDUS
> D SplfNumberNum S 8 0
> D SplfNumberTxt S 8
> D Temp S 3
> D CmpnyNum S 4 0
> D FNCmpny S 4 0
> D FNReport S 20
> D FNType S 3
> D FNOther S 6
> D ToOutQ S 10
> D CleanUp S 1 Inz('N')
> Move the Splf flag
> D FTPLoc S 15
> Enter IP Address
> D BldFileName S 1 Inz('Y')
>
>
> C $RtvSplfA BegSr
>
> C Eval QJob = JobName +
> JobUserName +
> C JobNumber
>
> C Call 'QUSRSPLA'
> C Parm Reciever
> C Parm Length
> C Parm FormatName
> C Parm QJob
> C Parm JobID
> C Parm SplfID
> C Parm SplfName
> C Parm SplfNumber
> <<<<<<<<<<<<<
> ????????????
> C EndSr
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries
> (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
