× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.