MVSFORUMS.com :: View topic - Writing JCL in ezt

MVSFORUMS.com
A Community of and for MVS Professionals

FAQ

Quick Manuals

Profile

Writing JCL in ezt

MVSFORUMS.com Forum Index -> Application Programming

View previous topic :: View next topic

Author

Message

Bravo
Beginner

Joined: 05 Dec 2005
Posts: 26
Topics: 12

Posted: Wed Apr 05, 2006 12:44 pm Post subject: Writing JCL in ezt

Hello Everybody,

I planning to write JCL in eztrieve.I have problem.

Here is sample JCL

Code:

FILE IN1
IN1-FILNAME 001 024 A

FILE OUTFILE
OUT-REC 1 80 A

WK-JOB-CARD1 W 80 A
WK-JOB-LINE1 72 A VALUE +
"//TESTINGJ JOB 'BRAVO','DEVELOP',CLASS=E,"
WK-JOB-FIL1 WK-JOB-CARD1 +73 7 A VALUE ' '

JOB INPUT IN1

OUT-REC = WK-JOB-CARD1
PUT OUTFILE
/*

Here is the error

WK-JOB-CARD1 W 80 A
WK-JOB-LINE1 72 A VALUE +
'//TESTINGJ JOB 'BRAVO','DEVELOP',CLASS=E,'
******B082 NAME IS UNDEFINED - A
******B088 LITERAL NOT FOLLOWED BY DELIMITER
******B105 VALUE NOT ALLOWED FOR THIS FIELD
******B132 APOSTROPHE NOT PRECEDED BY SPACE
******B016 INVALID OR CONFLICTING KEYWORD - //TESTINGJ JOB
******B088 LITERAL NOT FOLLOWED BY DELIMITER
******B016 INVALID OR CONFLICTING KEYWORD - BRAVO
******B132 APOSTROPHE NOT PRECEDED BY SPACE
******B016 INVALID OR CONFLICTING KEYWORD - ,

I tried with double quotes but still getting the error.

Please suggest to solve this problem.

kolusu
Site Admin

Joined: 26 Nov 2002
Posts: 12380
Topics: 75
Location: San Jose

Posted: Wed Apr 05, 2006 1:16 pm Post subject:

Bravo,

Try this

Code:

WK-JOB-CARD1 W 80 A
WK-JOB-C1 WK-JOB-CARD1 15 A VALUE '//TESTINGJ JOB '
WK-JOB-C2 WK-JOB-CARD1 +15 01 A VALUE X'7D'
WK-JOB-C3 WK-JOB-CARD1 +16 05 A VALUE 'BRAVO'
WK-JOB-C4 WK-JOB-CARD1 +21 01 A VALUE X'7D'
WK-JOB-C5 WK-JOB-CARD1 +22 01 A VALUE ','
WK-JOB-C6 WK-JOB-CARD1 +23 01 A VALUE X'7D'
WK-JOB-C7 WK-JOB-CARD1 +24 07 A VALUE 'DEVELOP'
WK-JOB-C8 WK-JOB-CARD1 +31 01 A VALUE ','
WK-JOB-C9 WK-JOB-CARD1 +32 07 A VALUE 'CLASS=E'
WK-JOB-FIL1 WK-JOB-CARD1 +39 41 A VALUE ' '

JOB INPUT IN1

OUT-REC = WK-JOB-CARD1
PUT OUTFILE

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

Bravo
Beginner

Joined: 05 Dec 2005
Posts: 26
Topics: 12

Posted: Wed Apr 05, 2006 1:27 pm Post subject:

Awesome..Worked perfectly.. Thanks kolusu

Display posts from previous:

	MVSFORUMS.com Forum Index -> Application Programming	All times are GMT - 5 Hours
Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum