dynamic jcl through Rexx
Re: dynamic jcl through Rexx
by coolpinky » Sun Jun 09, 2013 11:19 am
Sort will only allow me to split the files..however i need o create file name dynamically and process those..I dont think sort can do this..
- coolpinky
- Posts: 11
- Joined: Fri Jun 07, 2013 4:58 pm
- Has thanked: 0 time
- Been thanked: 0 time
Re: dynamic jcl through Rexx
by enrico-sorichetti » Sun Jun 09, 2013 12:57 pm
this snippet will build a reasonable jcl according to Your input
****** ***************************** Top of Data ******************************
- - - - - - - - - - - - - - - - - - - 4 Line(s) not Displayed
000005 //S1 EXEC PGM=SORT
000006 //SYSPRINT DD SYSOUT=*
000007 //SYSOUT DD SYSOUT=*
000008 //SORTIN DD *
000009 1234 ... ... ...
000010 2345 ... ... ...
000011 2345 ... ... ...
000012 3456 ... ... ...
000013 3456 ... ... ...
000014 3456 ... ... ...
000015 4567 ... ... ...
000016 4567 ... ... ...
000017 4567 ... ... ...
000018 4567 ... ... ...
000019 //JCL DD DISP=(,PASS),DSN=&JCL,
000020 // DCB=(RECFM=FB,LRECL=80),
000021 // UNIT=VIO,SPACE=(TRK,(1,1))
000022 //CTL DD DISP=(,PASS),DSN=&CTL,
000023 // DCB=(RECFM=FB,LRECL=80),
000024 // UNIT=VIO,SPACE=(TRK,(1,1))
000025 //SYSIN DD *
000026 OPTION COPY
000027 INREC OVERLAY(81:SEQNUM,4,ZD,RESTART=(1,4))
000028 OUTFIL FNAMES=JCL,
000029 INCLUDE=(81,4,ZD,EQ,1),
000030 REMOVECC,
000031 HEADER1=('//SPLIT JOB NOTIFY=&SYSUID, ',/,
000032 '// CLASS=A,MSGCLASS=X, ',/,
000033 '// MSGLEVEL=(1,1) ',/,
000034 '//* ',/,
000035 '//S EXEC PGM=SORT ',/,
000036 '//SYSPRINT DD SYSOUT=* ',/,
000037 '//SYSOUT DD SYSOUT=* ',/,
000038 '//SORTIN DD DISP=SHR,DSN=XXXX.YYYY.IN'),
000039 TRAILER1=('//SYSIN DD *'),
000040 BUILD=(1:C'//OU',1,4,13:C'DD DISP=(,CATLG),',80:X,/,
000041 1:C'//',16:C'DSN=XXXX.YYYY.OU',1,4,C',',80:X,/,
000042 1:C'//',16:C'UNIT=SYSDA,SPACE=(CYL,(1,1)),',80:X,/,
000043 1:C'//',16:C'DCB=(RECFM=FB,LRECL=80)',80:X)
000044 OUTFIL FNAMES=CTL,
000045 INCLUDE=(81,4,ZD,EQ,1),
000046 REMOVECC,
000047 HEADER1=(' OPTION COPY'),
000048 TRAILER1=('/*',/,'//'),
000049 BUILD=(3:C'OUTFIL FNAMES=OU',1,4,
000050 C',INCLUDE=(1,4,CH,EQ,C''',1,4,C''')',80:X)
000051 //S2 EXEC PGM=SORT
000052 //SYSPRINT DD SYSOUT=*
000053 //SYSOUT DD SYSOUT=*
000054 //SORTIN DD DISP=(OLD,PASS),DSN=&JCL
000055 // DD DISP=(OLD,PASS),DSN=&CTL
000056 //SORTOUT DD SYSOUT=*
000057 //SYSIN DD *
000058 OPTION COPY
****** **************************** Bottom of Data ****************************
- - - - - - - - - - - - - - - - - - - 4 Line(s) not Displayed
000005 //S1 EXEC PGM=SORT
000006 //SYSPRINT DD SYSOUT=*
000007 //SYSOUT DD SYSOUT=*
000008 //SORTIN DD *
000009 1234 ... ... ...
000010 2345 ... ... ...
000011 2345 ... ... ...
000012 3456 ... ... ...
000013 3456 ... ... ...
000014 3456 ... ... ...
000015 4567 ... ... ...
000016 4567 ... ... ...
000017 4567 ... ... ...
000018 4567 ... ... ...
000019 //JCL DD DISP=(,PASS),DSN=&JCL,
000020 // DCB=(RECFM=FB,LRECL=80),
000021 // UNIT=VIO,SPACE=(TRK,(1,1))
000022 //CTL DD DISP=(,PASS),DSN=&CTL,
000023 // DCB=(RECFM=FB,LRECL=80),
000024 // UNIT=VIO,SPACE=(TRK,(1,1))
000025 //SYSIN DD *
000026 OPTION COPY
000027 INREC OVERLAY(81:SEQNUM,4,ZD,RESTART=(1,4))
000028 OUTFIL FNAMES=JCL,
000029 INCLUDE=(81,4,ZD,EQ,1),
000030 REMOVECC,
000031 HEADER1=('//SPLIT JOB NOTIFY=&SYSUID, ',/,
000032 '// CLASS=A,MSGCLASS=X, ',/,
000033 '// MSGLEVEL=(1,1) ',/,
000034 '//* ',/,
000035 '//S EXEC PGM=SORT ',/,
000036 '//SYSPRINT DD SYSOUT=* ',/,
000037 '//SYSOUT DD SYSOUT=* ',/,
000038 '//SORTIN DD DISP=SHR,DSN=XXXX.YYYY.IN'),
000039 TRAILER1=('//SYSIN DD *'),
000040 BUILD=(1:C'//OU',1,4,13:C'DD DISP=(,CATLG),',80:X,/,
000041 1:C'//',16:C'DSN=XXXX.YYYY.OU',1,4,C',',80:X,/,
000042 1:C'//',16:C'UNIT=SYSDA,SPACE=(CYL,(1,1)),',80:X,/,
000043 1:C'//',16:C'DCB=(RECFM=FB,LRECL=80)',80:X)
000044 OUTFIL FNAMES=CTL,
000045 INCLUDE=(81,4,ZD,EQ,1),
000046 REMOVECC,
000047 HEADER1=(' OPTION COPY'),
000048 TRAILER1=('/*',/,'//'),
000049 BUILD=(3:C'OUTFIL FNAMES=OU',1,4,
000050 C',INCLUDE=(1,4,CH,EQ,C''',1,4,C''')',80:X)
000051 //S2 EXEC PGM=SORT
000052 //SYSPRINT DD SYSOUT=*
000053 //SYSOUT DD SYSOUT=*
000054 //SORTIN DD DISP=(OLD,PASS),DSN=&JCL
000055 // DD DISP=(OLD,PASS),DSN=&CTL
000056 //SORTOUT DD SYSOUT=*
000057 //SYSIN DD *
000058 OPTION COPY
****** **************************** Bottom of Data ****************************
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
- enrico-sorichetti
- Global moderator
- Posts: 3003
- Joined: Fri Apr 18, 2008 11:25 pm
- Has thanked: 0 time
- Been thanked: 164 times
Re: dynamic jcl through Rexx
by coolpinky » Sun Jun 09, 2013 9:35 pm
1234 ...key is not fixed..It is a random number generated by system so it cannot be defined.
- coolpinky
- Posts: 11
- Joined: Fri Jun 07, 2013 4:58 pm
- Has thanked: 0 time
- Been thanked: 0 time
Re: dynamic jcl through Rexx
by enrico-sorichetti » Sun Jun 09, 2013 10:14 pm
before criticizing did You try to run the snippet posted as is
did You run it and tried to understand it ?
it will behave properly for any key composed of 4 alpha numerics ( upper case letters and numbers ).
Do you realize that today is sunday and psychic day is wednesday.
( being able to guess what You want for a poor description of the requirement )
if You want good answers learn to post better questions.
the snippet as posted satisfied the description of the requirement
( it was posted as is for a similar request on the sibling forum )
a better description would have told ..
the position, length, format of the key ...
the number of different keys
did You run it and tried to understand it ?
it will behave properly for any key composed of 4 alpha numerics ( upper case letters and numbers ).
Do you realize that today is sunday and psychic day is wednesday.
( being able to guess what You want for a poor description of the requirement )
if You want good answers learn to post better questions.
the snippet as posted satisfied the description of the requirement
( it was posted as is for a similar request on the sibling forum )
a better description would have told ..
the position, length, format of the key ...
the number of different keys
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
- enrico-sorichetti
- Global moderator
- Posts: 3003
- Joined: Fri Apr 18, 2008 11:25 pm
- Has thanked: 0 time
- Been thanked: 164 times
Re: dynamic jcl through Rexx
by coolpinky » Mon Jun 10, 2013 10:44 am
I tried running the rexx code.
I got maxx cc-0 but my files are not alllocated
I used the below jcl
Rexx code is :
Can you guide why files are not allocated
Code'd
I got maxx cc-0 but my files are not alllocated
I used the below jcl
//STEP1 EXEC PGM=IKJEFT01
//SYSEXEC DD DSN=HLQ.PINKY.CTLLIB(REXX4),DISP=SHR
//SYSTSPRT DD SYSOUT=*
//TULIN DD DSN=HLQ.PINKY.REXX.INPUT3,DISP=SHR
//SYSTSIN DD DUMMY
//SYSEXEC DD DSN=HLQ.PINKY.CTLLIB(REXX4),DISP=SHR
//SYSTSPRT DD SYSOUT=*
//TULIN DD DSN=HLQ.PINKY.REXX.INPUT3,DISP=SHR
//SYSTSIN DD DUMMY
Rexx code is :
/* REXX */
LASTKEY = ''
DSN = ''
DROP RECORD.
"EXECIO 1 DISKR TULIN"
DO WHILE (RC=0)
PULL RECORD.1
THISKEY = SUBSTR(RECORD.1,1,4)
IF (THISKEY¬LASTKEY) THEN DO
IF (LASTKEY¬='') THEN DO
"EXECIO 0 DISKW TULOUT (FINIS"
"FREE FI(TULOUT)"
ADDRESS ISPEXEC "FTOPEN TEMP"
ADDRESS ISPEXEC "FTINCL FOO"
ADDRESS ISPEXEC "FTCLOSE"
ADDRESS ISPEXEC "VGET ZTEMPF"
"SUBMIT '"ZTEMPF"'"
DSN = "HLQ.PINKY"D.THISKEY
"ALLOC FI(TULOUT) DA("DSN") NEW SPACE(1,1) TRACKS LRECL(80)",
"RECFM(F B)"
END
LASTKEY = THISKEY
END
"EXECIO 1 DISKW TULOUT (STEM RECORD.)"
"EXECIO 1 DISKR TULIN"
LASTKEY = ''
DSN = ''
DROP RECORD.
"EXECIO 1 DISKR TULIN"
DO WHILE (RC=0)
PULL RECORD.1
THISKEY = SUBSTR(RECORD.1,1,4)
IF (THISKEY¬LASTKEY) THEN DO
IF (LASTKEY¬='') THEN DO
"EXECIO 0 DISKW TULOUT (FINIS"
"FREE FI(TULOUT)"
ADDRESS ISPEXEC "FTOPEN TEMP"
ADDRESS ISPEXEC "FTINCL FOO"
ADDRESS ISPEXEC "FTCLOSE"
ADDRESS ISPEXEC "VGET ZTEMPF"
"SUBMIT '"ZTEMPF"'"
DSN = "HLQ.PINKY"D.THISKEY
"ALLOC FI(TULOUT) DA("DSN") NEW SPACE(1,1) TRACKS LRECL(80)",
"RECFM(F B)"
END
LASTKEY = THISKEY
END
"EXECIO 1 DISKW TULOUT (STEM RECORD.)"
"EXECIO 1 DISKR TULIN"
Can you guide why files are not allocated
Code'd
- coolpinky
- Posts: 11
- Joined: Fri Jun 07, 2013 4:58 pm
- Has thanked: 0 time
- Been thanked: 0 time
Re: dynamic jcl through Rexx
by BillyBoyo » Mon Jun 10, 2013 11:38 am
Please use the Code tags to preserve spacing, use the Preview button to ensure your posting looks like how you want it to look.
- BillyBoyo
- Global moderator
- Posts: 3804
- Joined: Tue Jan 25, 2011 12:02 am
- Has thanked: 22 times
- Been thanked: 265 times
Re: dynamic jcl through Rexx
by Akatsukami » Mon Jun 10, 2013 3:29 pm
coolpinky wrote:I tried running the rexx code.
I got maxx cc-0 but my files are not alllocated
I used the below jcl//STEP1 EXEC PGM=IKJEFT01
//SYSEXEC DD DSN=HLQ.PINKY.CTLLIB(REXX4),DISP=SHR
//SYSTSPRT DD SYSOUT=*
//TULIN DD DSN=HLQ.PINKY.REXX.INPUT3,DISP=SHR
//SYSTSIN DD DUMMY
- Add a TRACE I (or R) statement at the beginning and re-run it.
- You do have ALTER access to HLQ, yes?
- To short-circuit the next complaint, viz., "My jobs aren't getting submitted!", you evidently didn't bother to readI assume that you're running this in background ISPF
You're not; you're running background TSO.
"You have sat too long for any good you have been doing lately ... Depart, I say; and let us have done with you. In the name of God, go!" -- what I say to a junior programmer at least once a day
-
Akatsukami - Global moderator
- Posts: 1058
- Joined: Sat Oct 16, 2010 2:31 am
- Location: Bloomington, IL
- Has thanked: 6 times
- Been thanked: 51 times
-
- Related topics
- Replies
- Views
- Last post
-
- Create dynamic query using Rexx
by jegan_selvan » Fri Oct 12, 2012 4:14 pm - 5 Replies
- 4476 Views
- Last post by NicC
Wed Oct 17, 2012 6:46 pm
- Create dynamic query using Rexx
-
- Create dynamic WS-Header using REXX
1, 2by arpitpatel01 » Mon Apr 06, 2015 7:50 pm - 11 Replies
- 5195 Views
- Last post by arpitpatel01
Fri Apr 24, 2015 8:15 pm
- Create dynamic WS-Header using REXX
-
- Pointers, arrays and dynamic lists on Rexx
by hakghen » Fri May 28, 2010 3:32 am - 3 Replies
- 3342 Views
- Last post by hakghen
Mon May 31, 2010 11:01 pm
- Pointers, arrays and dynamic lists on Rexx
-
- Dynamic panel using table
by selvakumarmvs » Wed May 18, 2011 7:04 am - 7 Replies
- 5241 Views
- Last post by NicC
Fri May 20, 2011 12:46 am
- Dynamic panel using table
-
- DATAIN variables in a Dynamic Area
by Quasar » Sun Mar 17, 2013 10:49 am - 6 Replies
- 3079 Views
- Last post by Pedro
Mon Mar 18, 2013 9:36 pm
- DATAIN variables in a Dynamic Area