cobol and jcl name standard?
Posted: Thu Feb 05, 2009 9:30 pmabout the syntax in cobol:
select xxx assign to name-cobol,
I wonder if name cobol must be the same with the name in jcl or others rule for
the name standard?
the below is my example:
this is my code for cobol:
this is my code for JCl:
UT-S-BNFILE and BNFILE are different name, but why do the JCL run succesfull?
thank you.
select xxx assign to name-cobol,
I wonder if name cobol must be the same with the name in jcl or others rule for
the name standard?
the below is my example:
this is my code for cobol:
*--------------------*
INPUT-OUTPUT SECTION.
*--------------------*
FILE-CONTROL.
SELECT INPUT-T5-FILE ASSIGN TO UT-S-T5FILE.
SELECT OUTPUT-BN-FILE ASSIGN TO UT-S-BNFILE.
SELECT OUTPUT-NOBN-FILE ASSIGN TO UT-S-NOBNFILE.
SELECT OUTPUT-NGF-FILE ASSIGN TO UT-S-NGFFILE.
INPUT-OUTPUT SECTION.
*--------------------*
FILE-CONTROL.
SELECT INPUT-T5-FILE ASSIGN TO UT-S-T5FILE.
SELECT OUTPUT-BN-FILE ASSIGN TO UT-S-BNFILE.
SELECT OUTPUT-NOBN-FILE ASSIGN TO UT-S-NOBNFILE.
SELECT OUTPUT-NGF-FILE ASSIGN TO UT-S-NGFFILE.
this is my code for JCl:
//BNFILE DD DSN=MP.UMP9LFC.VALIDBN,DISP=(NEW,CATLG,KEEP),
// UNIT=SYSDA,
// SPACE=(TRK,(1,1),RLSE)
//NOBNFILE DD DSN=MP.UMP9LFC.NOBN,DISP=(NEW,CATLG,KEEP),
// UNIT=SYSDA,
// SPACE=(TRK,(1,1),RLSE)
//NGFFILE DD DSN=MP.UMP9LFC.NFG,DISP=(NEW,CATLG,KEEP),
// UNIT=SYSDA,
// SPACE=(TRK,(1,1),RLSE)
// UNIT=SYSDA,
// SPACE=(TRK,(1,1),RLSE)
//NOBNFILE DD DSN=MP.UMP9LFC.NOBN,DISP=(NEW,CATLG,KEEP),
// UNIT=SYSDA,
// SPACE=(TRK,(1,1),RLSE)
//NGFFILE DD DSN=MP.UMP9LFC.NFG,DISP=(NEW,CATLG,KEEP),
// UNIT=SYSDA,
// SPACE=(TRK,(1,1),RLSE)
UT-S-BNFILE and BNFILE are different name, but why do the JCL run succesfull?
thank you.
Whatever comes after the "ut-s-" must be the ddname and that is what is posted.