Z262 Provide the User with the G Step PARM-String (IBM)

OBSOLETE

Please note that this routine has been obsoleted in CNL 219. Users are advised not to use it any longer and to replace it in older programs. No maintenance for it will take place and it will eventually disappear.
Suggested replacement: IARGC (Z264)

GOPARM returns to a Fortran program the character string specified in the PARM field of the JCL corresponding to the step being executed. (This is the G-step when using the CERN procedure JFORTCLG).

Structure:

SUBROUTINE subprogram
User Entry Names: GOPARM

Usage:

    CALL GOPARM(LENGTH,PARMS)

LENGTH

( INTEGER) Contains the length in characters of the parameter string specified in the JCL of the step in which this routine is executed. $(0\; \le LENGTH\; \le 100)$ .

PARMS

( CHARACTER*100) Contains the LENGTH characters of the string.

Restrictions:

In the VM-CMS operating system GOPARM must be called before any Input/Output operations have been performed. The mechanism for passing parameters depends on how a program is loaded. For a module type:

Module--name parameter--string

After a LOAD the parameters must be placed on the subsequent START command:

START entry--name parameter--string

If START is used as an option of LOAD then no parameters are passed and LENGTH is returned as zero. Note that any '(' will be passed as part of the parameter-string.

Notes:

The form with parentheses must be used if the parameter string is to be continued on a second JCL card, since a value or subvalue cannot be split over two JCL cards.

Examples:

The following are all equivalent:

//EXEC JFORTCLG,GPRM='FIRST,SECOND,THIRD=YES'
//EXEC JFORTCLG,GPRM=(FIRST,SECOND,'THIRD=YES')
//EXEC JFORTCLG,GPRM=('FIRST','SECOND','THIRD=YES')

    FIRST,SECOND,THIRD=YES

Z264