RE: JCL(?) question

[Lynn DiRosa <LDiRosa@xxxxxxxxxxxxxx>]

Your working with something called OCL (Operation Control Language) which
evolves from a System 36, this would not be found in a CL Manual.  Your
AS/400 is running a system 36 environment (command is STRS36).  Their was
once a redbook out (around 88/89) that helped to translate S/36 OCL to
AS/400 CL, or explain their equivalent counterpart.  Try the IBM website for
the Red Books.

As far as a translation to your OCL here goes;
        // FILE NAME-OUTPUT = the name of the file in the RPG II program "F"
spec
        ,LABEL-XYADROUT     = the name of the Physical file that will get
the                                             outputted data
        ,RETAIN-J,                  = retain this file on the system until
end of job                                                      then delete
it for me
        RECORDS-?F'A,XYINTRAP'? = when you create a file in this fashion you
need to tell it how many records it will have.  Usually this is unknown so
programmers started using the string you see above, it merely retrieves the
number of records(?F'A,)  in the file XYINTRAP and plugs that # into the
number of records to allot on the new output file.

        // LOAD                         =  load the rpg program object code
to run
        ....
        // RUN                          =  ok now run the RPG Program

Regards
Lynn P. DiRosa
Senior Pgmr/Analyst
Gibraltar Steel, Corporate 
ldirosa@gibraltar1.com

> -----Original Message-----
> From: Stephanie Coulshaw [SMTP:scoulshaw@aimtronics.com]
> Sent: Wednesday, June 23, 1999 11:56 AM
> To:   'MIDRANGE-L@midrange.com'
> Subject:      JCL(?) question
> 
> Hi...
> 
> Firstly, bear with my terminology as my experience is mostly with
> mainframes, and I've received no training on the AS/400.
> 
> We've got the old B10 here, and we had problems with a batch job that was
> part of our month end.  I've found the proc/JCL that ran this job and
> there
> is a parameter that I can't resolve, nor can I find reference to this in
> any
> of the manuals here.  The line is:
> 
> 
> The records parameter was interpreted as 00000000 when this job ran.  Is
> this some kind of function call to see the size of the input file(which
> was
> XYINTRAP)?
> 
> What manual would this be in?  I've got a Control Language Programmer's
> Guide here but can't find this type of statement.  I didn't find any of
> the
> actually, nor can I find an explanation for // LOAD, or // RUN, which seem
> obvious, but I'd really like to find the right manual.
> 
> All help greatly appreciated....
> 
> Stephanie
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---