Mike Wills, Did you find this also? -- RPG400-L

-----Original Message-----
From: Helge Bichel [mailto:hbi@mail.dk]
Sent: Wednesday, September 25, 2002 2:14 AM
To: rpg400-l@midrange.com
Subject: Re: Please Help me to gain more understanding.



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.
>

_______________________________________________
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.