Override Sequence with Direct //*FORMAT JES3 Control Statements For WTR Queue

A “direct” //*FORMAT JES3 control statement is one that uses the DDNAME parameter to explicitly reference a specific data set (that is, having the format //*FORMAT xx,DDNAME=xxxx). If there is a direct //*FORMAT statement, the OUTSERV initialization parameters are overridden by the following sources:

SYSOUT class table: This table is constructed from the parameters on the SYSOUT initialization statement.
SYSOUT DD JCL statements: The values specified on the SYSOUT DD JCL statements override the values specified by sources 1 (above).
//*FORMAT xx,DDNAME=xxxx JES3 control statement: The values specified on the direct //*FORMAT statement override the values specified by sources 1 and 2 (above).

EXAMPLE

This example shows the override process using the FORMS parameter on the OUTSERV initialization statement and a direct //*FORMAT JES3 control statement.

    OUTSERV,FORMS=1PRT
    SYSOUT,CLASS=F,FORMS=3PRT   ----->WTR Queue

Under these conditions, the following job is run:

    //MARIOA         JOB  MSGLEVEL=(1,1),MSGCLASS=F
    //*FORMAT        PR,DDNAME=SYSPRINT,FORMS=2PRT,CHARS=GS14
    //STEP1          EXEC    PGM=IEBDG
    //SYSPRINT       DD SYSOUT=(F,,4PRT)
    //SYSUT2         DD SYSOUT=F,DCB=(LRECL=80,RECFM=FB,BLKSIZE=80)
    //SYSIN          DD      *
     DSD OUTPUT=(SYSUT2)
     FD NAME=FIELD1,LENGTH=80,STARLOC=1,PICTURE=5,'MARIO',FILL=X'40'
     CREATE QUANTITY=10,NAME=FIELD1
     END
     /*

Table 1 illustrates the override process for this example.

Table 1. Example of FORMS Override Using Direct //*FORMAT Statements for WTR Queue
Data Set	FORMS Initial Value in OUTSERV Statement	Order of FORMS Overrides			FORMS Final Value	CHARS Final Value
Data Set	FORMS Initial Value in OUTSERV Statement	1. SYSOUT, CLASS=F	2. DD for SYSPRINT	3. //*FORMAT PR, DDNAME = SYSPRINT	FORMS Final Value	CHARS Final Value
SYSPRINT	1PRT	3PRT	4PRT	2PRT	2PRT	GS14
SYSUT2	1PRT	3PRT	n/a	n/a	3PRT	GS10
JESMSGLG	1PRT	3PRT	n/a	n/a	3PRT	GS10
JESJCL	1PRT	3PRT	n/a	n/a	3PRT	GS10
JESYSMSG	1PRT	3PRT	n/a	n/a	3PRT	GS10