Modeling Facility › Model Data Statements › Examples

Examples

This subject shows examples of model statements along with explanations of these statements.

Example 1

MODEL:  @         MYWORD = 'ABCD'                (1)
MODEL:  @       YOURWORD = 'FGHIJ'               (2)
MODEL:  OUTPUT DATA STATEMENT IS <MYWORD> !      (3)
MODEL:                               <YOURWORD>  (4)
 
OUTPUT: OUTPUT DATA STATEMENT IS ABCDFGHIJ

• (1)—This is a Model Control Statement (@ in Column 1) assigning the value of ABCD to the user keyword MYWORD.
• (2)—This is another Model Control Statement (@ in Column 1) assigning the value of FGHIJ to the user keyword YOURWORD.
• (3 & 4)—This is a Data Statement. The value of MYWORD is substituted. The "!" indicates that the following Data Statement is combined with this one, and the combined statements are written as a single statement.

  The first Data Statement is processed and the value of the keyword is substituted. The second Data Statement is processed, and the value of keyword <YOURWORD> is substituted, replacing blank characters of the first Data Statement.

Note: CA‑PanAPT reports an error when the second Data Statement attempts to overlay a non‑blank character on the first Data Statement.

Example 2

MODEL:  @   MYWORD = 'ABCDE'              (1)
 MODEL:  @   YOURWORD = 'EFGHI'            (2)
 MODEL:  DATA STATEMENT <MYWORD>           (3)
 MODEL:  <MYWORD,1,3>,<YOURWORD>           (4)
 
OUTPUT: DATA STATEMENT ABCDE              (5)
 OUTPUT: ABC,EFGHI                         (6)

• (1)—This is a Model Control Statement (@ in Column 1). This is a Keyword Assignment Statement, and the value ABCDE is placed in the user Keyword MYWORD.
• (2)—This is another Model Control Statement (@ in Column 1). This is also a Keyword Assignment Statement, and the value EFGHI is placed in the user Keyword YOURWORD.
• (3)—This is a Data Statement (no @ in Column 1). This statement contains a substitution keyword. The value of the user keyword MYWORD is placed in the generated output. (See output in line 5.)
• (4)—This is another Data Statement (no @ in Column 1). This statement contains a substitution keyword. The value of the user keywords MYWORD and YOURWORD is placed in the generated output. Note that only part of the value of MYWORD is to be substituted in the output statement. (See output in line 6.)

Example 3

Desired Output

At the beginning of the members for this Library Code you want:

//COMPILES JOB (),'COMPILE INTO PROD',
 //             CLASS=A,
 //             MSGCLASS=X
//*

And for each member to be compiled you want:

//*
//PGM1     EXEC COBOL,
 //              SRCEMEM=PGM1,
 //              LOADDSN='PROD.LOADLIB',
 //              LOADMEM=PGM1,
 //              LNKPARM='RENT'

Model Used to Produce this Output:

@ IF $PHASE = 'INIT'
//COMPILES JOB (),'COMPILE INTO PROD',
 //             CLASS=A,
 //             MSGCLASS=X
//*
@ ENDIF
@***
@ IF $PHASE = 'MOVE'
//*
//<$TONAME> EXEC COBOL,
 //             SRCEMEM=<$FROMNAME>,
//             LOADDSN='<$TODSN>',
 //             LOADMEM=<$TONAME>,
//             LNKPARM='$DIBSLINKOPT'
@ ENDIF

Example 4

Desired Output

At the beginning of the members of this Library Code you want:

COPY INDD=((JCLT,R)),OUTDD=JCLP

And for each member to be compiled you want:

SELECT MEMBER=PGM1

Model Used to Produce this Output:

@ IF $PHASE = 'INIT'
  COPY INDD=((<$LIBCODE>T,R)),OUTDD=<$LIBCODE>P
@ ENDIF
@***
@ IF $PHASE = 'MOVE'
      SELECT MEMBER=<$TONAME>
@ ENDIF