Re: S/36 Environment/DFU

[Jim Franz <franz9000@xxxxxxxxx>]

(i love help text - i did this with STRS36 command  (on a system not
defaulted to S36, but S36 is loaded),  ENTER (the procedure) and F1 for
help (might be cursor sensitive to top of screen)

*see page 4*
                             HELP FOR ENTER PROCEDURE        Page  1 of  5


 DESCRIPTION
     The ENTER procedure allows you to create a data file using the data
file
    utility (DFU).  File definitions are used to define the format of the
    records in the file.

 KEYS YOU CAN USE ON ENTER PROCEDURE DISPLAY
    F3   = Exit help
    F16  = Display the main menu
    F18  = Display your initial menu
    Home = Display your sign-on menu
                             HELP FOR ENTER PROCEDURE        Page  2 of  5

 Name of file to be created  . . . . . . . . . . . . . . . . . .

    The file name can be from 1 to 8 alphameric characters.  The first

    character must be alphabetic (A through Z, #, @, $) and it must not
contain
    blanks, commas, or quotes (').  It also must not be ALL, SYSTEM, NEW or
DIR.
 Name of file on disk, if different  . . . . . . . . . . . . . .



    This refers to the name of the file on disk if it is different from the

    name of the file to be created.  It is an optional parameter.  If this

    parameter is not provided, then the name of the file on disk will be

    the same as the name of the file to be created.  This parameter is also

    referred to as FILE LABEL.


                             HELP FOR ENTER PROCEDURE        Page  3 of  5

 Name of DFU program . . . . . . . . . . . . . . . . . . . . . .

     Name of the program description to be used to process the file. If the

    program does not exist in the library, DFU starts the setup procedures
to
    create the program.  If the program does exist in the library, DFU runs
it.
    To change an existing DFU program, leave this name blank and specify
the
    name of the program to be changed in the DFU specification source
member
    parameter. This is an optional parameter. If both the DFU program name
and
    the DFU specification source member name are not provided, DFU starts
the
    setup procedures to create a temporary program.


 Number of records to be in file . . . . . . . . . . . 1-8000000

     Maximum number of records you want to enter in the file.  You can
enter
    any number from 1 through 8,000,000.


                             HELP FOR ENTER PROCEDURE        Page  4 of  5

 Name of library . . . . . . . . . . . . . . . . . . . . . . . .

     All library members associated with the DFU job are looked for, or
stored,
    in this library.  If no name is specified, the current library is
assumed.


 *Name of file definition source member . . . . . . . . . . . . .         *





*  DFU uses the file definition information in this source member to create
       the DFU program.  It could be a set of RPG II F- and
I-specifications or        a complete RPG II program.  This source member
must already exist.          *

*I my memory is correct, needs to be a QS36SRC source file   and source
type RPG36, in a library in users or jobs library list            *


 Name of DFU specification source member . . . . . . . . . . . .

    To change an existing DFU program, specify the name of the DFU program
in
    this parameter. Leave the DFU program name parameter blank. Otherwise,
this
    parameter is ignored.


                             HELP FOR ENTER PROCEDURE        Page  5 of  5

 Name of display source member, if to be saved . . . . . . . . .

    This parameter is not valid. If you enter a value, an error message
    is issued.

Jim Franz

On Wed, Aug 6, 2025 at 12:51 PM Jim Franz <franz9000@xxxxxxxxx> wrote:

> not always qs36f - the QS36ENV in #LIBRARY can be used to override
> I've reached out to an active 36 pgmr for more info but my first guess is
> that for source member - its the library list...
> QS36F or another lib is the library of files (tables)
>
> Jim Franz
>                                Display Library
>
> Library  . . . . . . :   #LIBRARY        Number of objects  . :   92
> Type . . . . . . . . :   PROD            Library ASP number . :   1
> Create authority . . :   *SYSVAL         Library ASP device . :   *SYSBAS
>                                          Library ASP group  . :   *SYSBAS
>
> Type options, press Enter.
>   5=Display full attributes   8=Display service attributes
>
> Opt  Object      Type      Attribute               Size  Text
>      Z4          *FILE     PRTF                    8192
>      QS36ENV     *S36                             49152
>
>
> On Wed, Aug 6, 2025 at 12:46 PM Eric Lehti via MIDRANGE-L <
> midrange-l@xxxxxxxxxxxxxxxxxx> wrote:
>
> > Oops, 1992 was 33 years ago, not 38 years ago.
> > Eric Lehti still retired. Doing Math in my head carries no guarantee of
> > accuracy
> >
> > On Aug 6, 2025, at 11:38, Eric Lehti via MIDRANGE-L <
> > midrange-l@xxxxxxxxxxxxxxxxxx> wrote:
> >
> > Doug, can you find that named “file definition source member” in one of
> > your production source files?
> >
> > I doubt that it would be in a Q* file, but I not a reliable resource as I
> > last worked in the System/36 environment some 38 years ago in 1992-1993.
> > I do not remember the S/36 equivalent of IBMi library list of libraries
> >
> > Eric Lehti - retired but not tired
> >
> > On Aug 6, 2025, at 11:22, DEnglander--- via MIDRANGE-L <
> > midrange-l@xxxxxxxxxxxxxxxxxx> wrote:
> >
> > I have an OCL that I am researching. It uses the ENTER command to allow
> > the user to enter data for processing using the remaining steps in the
> > OCL.
> >
> > One of the parameters of the ENTER command is "Name of file definition
> > source member". In the OCL, there is a value here. How do I know what
> > Library DFU is looking in to get the source member? Is there a specific
> > Q*
> > file that would contain it? Would DFU use an existing program source of
> > the same name [which also uses this user entered file] to retrieve the F
> > and I specs for the file?
> >
> > The Enter command is using the name in this parameter of an old RPGIII
> > program that I am trying to retire, but I don't want to retire it if this
> > OCL references it via the Enter command. The OCL still is used
> > occasionally.
> >
> > I looked in the IBM S/36 Environment Reference manual, but it does not
> > seem to tell you where the Source member is located.
> >
> > Any ideas?
> >
> > Thank you,
> >
> > Doug
> >
> >
> > --
> > This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> > list
> > To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: https://lists.midrange.com/mailman/listinfo/midrange-l
> > or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at https://archive.midrange.com/midrange-l.
> >
> > Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
> > questions.
> >
> >
> > --
> > This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> > list
> > To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: https://lists.midrange.com/mailman/listinfo/midrange-l
> > or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at https://archive.midrange.com/midrange-l.
> >
> > Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
> > questions.