Symbolic JCL Mix

Question

I am a bit confused about how to create a symbolic variable in JCL for the assignment that I am executing in my COBOL class.

For example, I should "specify a symbolic parameter for the PARM option and specify TEST and APOST as the default value."

How to assign the parameter "PARM" as a symbolic parameter?

EDIT: Forgive the supervision; It seems that I forgot to mention which OS I work in. I am writing this JCL file on z / OS.

Thanks in advance!

EDIT:

@avisser:

So you say that I can just call it "& PARM =" TEST, APOST "", and if I wanted to change this parameter when I ran this proc with a different JCL expression, could it be changed from the calling JCL?

EDIT:

@avisser:

, , , ... COBOL JCL COBOL (IGYCRCTL), (HEWL) fetch (EXEC PGM =).

EDIT:

, , . , .

:

------ JES2 JOB STATISTICS ------

       37 CARDS READ                                                                                                            

       61 SYSOUT PRINT RECORDS                                                                                                  

        0 SYSOUT PUNCH RECORDS                                                                                                  

        3 SYSOUT SPOOL KBYTES                                                                                                   

     0.00 MINUTES EXECUTION TIME                                                                                                

!! JES SPOOL FILE!!      1//KC03CEFA JOB, 'MATT R', MSGclass= H, TYPRUN = SCAN JOB07731        // *
     2//STEP01 EXEC PGM = IGYCRCTL, & REGION = 248K,
       // & PARM = 'TEST, APOST'
     3//STEPLIB DD DSN = IGY340.SIGYCOMP, DISP = SHR
       /*
     4//SYSLIN DD & DSN = && OBJSET, UNIT = DISK, SPACE = (TRK, (3,3)),
       // & DISP = (NEW, PASS, DELETE)
     5//SYSPRINT DD SYSOUT = *
     6//SYSUT1 DD UNIT = DISK, SPACE = (CYL, (1,1))
     7//SYSUT2 DD UNIT = DISK, SPACE = (CYL, (1,1))
     8//SYSUT3 DD UNIT = DISK, SPACE = (CYL, (1,1))
     9//SYSUT4 DD UNIT = DISK, SPACE = (CYL, (1,1))
    10//SYSUT5 DD UNIT = DISK, SPACE = (CYL, (1,1))
    11//SYSUT6 DD UNIT = DISK, SPACE = (CYL, (1,1))
    12//SYSUT7 DD UNIT = DISK, SPACE = (CYL, (1,1))
       // *
       // *
    13//STEP02 EXEC PGM = HEWL, & COND =, & REAGION = 2048K,
       // & PARM =
    14//SYSLIB DD DSN = CEE.SCEELKED, DISP = SHR
    15//SYSLIN DD & DSN = && OBJSET, & DISP = (OLD, DELETE)
    16//SYSLMOD DD DSN = && TEMPLIB (PGM6),
       //SPACE = (1024, (50,20,1)), UNIT = DISK,
       //DISP = (NEW, CATLG, DELETE)
    17//SYSPRINT DD SYSOUT = *
    18//PRINTER DD SYSOUT = *
    19//SYSUT1 DD UNIT = DISK, SPACE = (TRK, (10,10))
       // *
       // *
    20//STEP01 EXEC PGM = PGM6, & PARM = TERMTHDACT (DUMP)
    21//STEPLIB DD DSN = && TEMPLIB, DISP = SHR
    22//CEEDUMP
    23//SYSUDUMP
    24// DD SYSOUT = *
    25// DD DSN = KC02322.CSCI465.SP09 (DATA1), DISP = SHR
    26//SYSIN DD *
!! JES SPOOL FILE!!  STMT NO.       2 IEFC630I UNIDENTIFIED KEYWORD & REGION       2 IEFC630I UNIDENTIFIED KEYWORD & PARM       4 IEFC630I UNIDENTIFIED KEYWORD & DSN       4 IEFC630I UNIDENTIFIED KEYWORD & DISP      13 IEFC630I UNIDENTIFIED KEYWORD & COND      13 IEFC630I UNIDENTIFIED KEYWORD & REAGION      13 IEFC630I UNIDENTIFIED KEYWORD & PARM      15 IEFC630I UNIDENTIFIED KEYWORD & DSN      15 IEFC630I UNIDENTIFIED KEYWORD & DISP      20 IEFC630I UNIDENTIFIED KEYWORD & PARM      22 IEFC605I      23 IEFC605I !! SPOOL JES!!

Answer 1

, . JCL- . ( z/OS) -

// SET name = value

. PARM, , . , - , (: linkage section). JCL COBOL?

TEST APOST . , , .

EDIT:

, , JCL. .

:

2 //STEP01 EXEC PGM=IGYCRCTL,&REGION=248K,
  // &PARM='TEST,APOST'

REGION PARM - , , , ( "UNIDENTIFIED KEYWORD" ).
- - . , , , :

  // SET OPTIONS='TEST,APOST'
  //STEP01 EXEC PGM=IGYCRCTL,REGION=248K,
  // PARM=&OPTIONS

Answer 2

, , , , , , . , , ( ), :

1. "PROC" , .

. "PARM" COBOL, "TEST" "APOST", - :

//PROC1  PROC  CPARM='TEST,APOST',

2. JCL. "&" , , , .

. "CPARM" COBOL:

//COB    EXEC  PGM=IGYCRCTL,REGION=&CREGION,  
//             PARM='&CPARM'

3: "PROC" "PEND" .

. , , ( , , , PEND, SYSUT1-SYSUT7), PEND:

//SYSUT7   DD UNIT=DISK,SPACE=(CYL,(1,1))  
//         PEND

4: JCL / , !

:

- PROC JCL. : COBOL, . COBOL , PROC.

- IBM z/OS.

-, , "CPARM" ​​ "TEST, APOST". null, (, CPARM =,).

-, , , CPARM ; , . , , PROC, (.. ). , , (//*), PROC , .