Re: Determining job type (interactive or batch) in an RPG program

[rob@xxxxxxxxx]

This is a multipart message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
Perhaps so the banking industry can put a standard routine in all their
programs that if the source library is not equal to the object's current
library, then freak?  If so, then they probably should add the system the
program was created on.  I know that is in the object description.

:-)


Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin




Barbara Morris <bmorris@ca.ibm.com>
Sent by: rpg400-l-admin@midrange.com
12/16/2002 09:35 PM
Please respond to rpg400-l

        To:     rpg400-l@midrange.com
        cc:
        Fax to:
        Subject:        Re: Determining job type (interactive or batch) in
an RPG program


rob=tksaTn4SAz0AvxtiuMwx3w@public.gmane.org wrote:
> I went into Code/400 and had it automatically generate me a PSDS.  I
don't
> any field here which may be useful.  While the PSDS may be useful, it is
> rather inflexible to change with the time.  For example what do you
> suppose the following contains in a program made up of multiple source
> modules?  The module containing the procedure you happen to be in when
you
> check these fields?
>      D P_SRC_FILE            304    313      * Source file
>      D P_SRC_LIB             314    323      * Source file lib
>      D P_SRC_MBR             324    333      * Source file mbr
>      D P_PROC_PGM            334    343      * Pgm Proc is in
>      D P_PROC_MOD            344    353      * Mod Proc is in
>

Rob, each module has its own PSDS, so indeed those fields reflect the
values for the current module.  I never figured out why those particular
fields were useful for programs, but assuming they were, why would they
be less useful for modules?


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