View previous topic :: View next topic
Author
Message
swapnadeep.ganguly Active User Joined: 21 Mar 2007Posts: 203 Location: India
The complete job are as under:
Proc:
Code:
//STEP01 EXEC PGM=IEFBR14
//*
//DD01 DD DSN=&HLQ..&FREQ..&RUNPARM..D&YYMMDD,
// DISP=(MOD,DELETE,DELETE),
// UNIT=&UNIT,
// SPACE=(TRK,&SPACE,RLSE)
//*
//DD02 DD DSN=&HLQ..DL.MVD1950.UPDATE.IN&FNUM..COMPARE,
// DISP=(MOD,DELETE,DELETE),
// UNIT=&UNIT,
// SPACE=(TRK,&SPACE,RLSE)
//*
//DD03 DD DSN=&HLQ..DL.MVD1950.UPDATE.IN&FNUM..COMPARE1,
// DISP=(MOD,DELETE,DELETE),
// UNIT=&UNIT,
// SPACE=(TRK,&SPACE,RLSE)
//*
//STEP02 EXEC PGM=IRXJCL,
// PARM='ABCDEFG +$=1/$PDATE=&YYMMDD/$HLQ=&HLQ/$FNUM=&FNUM'
//*
//SYSEXEC DD DSN=REXX.LIBRARY,
// DISP=SHR
//*
//TXTIN DD DSN=&PARMLIB(XXXX1111),
// DISP=SHR
//*
//TXTOUT DD DSN=&HLQ..&FREQ..&RUNPARM..D&YYMMDD,
// DISP=(NEW,CATLG,DELETE),
// UNIT=&UNIT,
// SPACE=(TRK,&SPACE,RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
//*
//SYSTSPRT DD SYSOUT=&SYSOUTX
//SYSPRINT DD SYSOUT=&SYSOUTX
//SYSOUT DD SYSOUT=&SYSOUTX
//*
//STEP03 EXEC PGM=FTP,REGION=7M,
// PARM='&IPARM1&IPARM2&IPARM3'
//*
//INPUT DD DSN=&HLQ..&FREQ..&RUNPARM..D&YYMMDD,
// DISP=SHR
//*
//SYSPRINT DD SYSOUT=&SYSOUTX
//SYSOUT DD SYSOUT=&SYSOUTX
//*
//STEP04 EXEC PGM=ISRSUPC,
// PARM=(DELTAL,LINECMP,
// 'NOPRTCC',
// '')
//NEWDD DD DSN=&HLQ..DL.MVD1950.UPDATE.IN&FNUM..D&YYMMDD,
// DISP=SHR
//*
//OLDDD DD DSN=&HLQ..DL.MVD1950.UPDATE.IN&FNUM..D&PREVDT,
// DISP=SHR
//*
//OUTDD DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE),
// DISP=(MOD,PASS),
// DCB=(RECFM=FB,LRECL=255)
//*
// IF (STEP04.RC EQ 1) THEN
//STEP05 EXEC PGM=SORT
//*
//SORTIN DD DSN=&&T1,DCB=(RECFM=FB,LRECL=255),
// DISP=MOD
//*
//SORTOUT DD DSN=&HLQ..DL.MVD1950.UPDATE.IN&FNUM..COMPARE1,
// DISP=(NEW,CATLG,DELETE),UNIT=RESDA,
// DCB=*.SORTIN,SPACE=(CYL,(1000,2000),RLSE)
//*
//SORTWK01 DD UNIT=SYSDA
//SORTWK02 DD UNIT=SYSDA
//SYSIN DD DSN=&PARMLIB(YYYY2222),
// DISP=SHR
//*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
// ENDIF
Job Card:
Code:
//AAAABBBB JOB (0415,MV00),'PROD CNTL OCE',
// CLASS=A,
// NOTIFY=&SYSUID,
// MSGCLASS=X,
// REGION=8M
//*
//PROCS JCLLIB ORDER=(PRODPROC.LIBRARY)
//*
//**********************************************************
//* THIS STEP DELETES THE FOLLOWING FILES (EXISTING FILES)
//* OR THE NEW ONE GETTING CREATED DURING RUN IF IT IS NON E
//**********************************************************
//MVD1930A EXEC MVRDLET,
// FILE01='&HLQ..DL.MVD1950.UPDATE.IN&FNUM..D&YYMMDD'
//*
//MVD1930B EXEC MVFTPA,
// FNUM='1',
// YYMMDD='110817',
// PREVDT='110816',
// IPARM2='(EXIT=01 ',
// COND=(0,NE)
Back to top
Bill Woodger Moderator Emeritus Joined: 09 Mar 2011Posts: 7309 Location: Inside the Matrix
I don't suppose the "other" proc has a cunningly-name STEP04 has it?
You don't have much space in a stepname, but you can make them more meaningful. If they are going to be meaningless, why not SNNN and save on all the rest of the typing?
Back to top
swapnadeep.ganguly Active User Joined: 21 Mar 2007Posts: 203 Location: India
No, there is no other PROC as you had mentioned.
Back to top
Bill Woodger Moderator Emeritus Joined: 09 Mar 2011Posts: 7309 Location: Inside the Matrix
swapnadeep.ganguly wrote:
No, there is no other PROC as you had mentioned.
Really? I'm confused then. I can see
Quote:
//MVD1930A EXEC MVRDLET
and
Quote:
//MVD1930B EXEC MVFTPA
Which is the one that does not exist?
If I have to spell it out, if MVRDLET has a step cunningly-named STEP04, then you will be testing that RC for your IF and I suspect it would be zero so the equally cunningly-named STEP05 in the second PROC would not run.
Back to top
dbzTHEdinosauer Global Moderator Joined: 20 Oct 2006Posts: 6966 Location: porcelain throne
and again, another
"I have provided all the info necessary, now solve my problem"
Back to top
enrico-sorichetti Superior Member Joined: 14 Mar 2007Posts: 10873 Location: italy
24 post with NO useful result...
You titled the topic
Quote:
Issue while using ISRSUPC
Youshould have titled it
Quote:
Issues with my understanding of JCL
and later changed it to
Quote:
Stubborness in providing useless info
post the FULL effing log of a run so that we can see how the nonexisting/neverinvoked procedure MVRDLET looks like
and stop wasting time on the incomplete info You keep providing
unless You provide what You are requested the topic will be locked and You will receive an official warning
Back to top
swapnadeep.ganguly Active User Joined: 21 Mar 2007Posts: 203 Location: India
I am really Sorry if I sound Stubborn...
The MVRDLET proc do not have any step with the name STEP04:
Code:
//MVRDLET PROC FILE01=NULLFILE, FIRST FILE
// FILE02=NULLFILE, SECOND FILE
// FILE03=NULLFILE, THIRD FILE
// FILE04=NULLFILE, FOURTH FILE
// FILE05=NULLFILE, FIFTH FILE
// FILE06=NULLFILE, SIXTH FILE
// FILE07=NULLFILE, SEVENTH FILE
// FILE08=NULLFILE, EIGHTH FILE
// SPACE1='(0,0)', SPACE ALLOCATION
// SYSOUTD='D', ABEND DUMP OUTPUT CLASS
// SYSOUTX='*' SYSOUT OUTPUT CLASS
//*
//****************************************************************
//****************************************************************
//STEP01 EXEC PGM=IEFBR14
//* DELETE FILES
//****************************************************************
//*
//FILE01 DD DSN=&FILE01,
// DISP=(MOD,DELETE,DELETE),
// SPACE=(TRK,&SPACE1,RLSE),UNIT=SYSDA
//*
//FILE02 DD DSN=&FILE02,
// DISP=(MOD,DELETE,DELETE),
// SPACE=(TRK,&SPACE1,RLSE),UNIT=SYSDA
//*
//FILE03 DD DSN=&FILE03,
// DISP=(MOD,DELETE,DELETE),
// SPACE=(TRK,&SPACE1,RLSE),UNIT=SYSDA
//*
//FILE04 DD DSN=&FILE04,
// DISP=(MOD,DELETE,DELETE),
// SPACE=(TRK,&SPACE1,RLSE),UNIT=SYSDA
//*
//FILE05 DD DSN=&FILE05,
// DISP=(MOD,DELETE,DELETE),
// SPACE=(TRK,&SPACE1,RLSE),UNIT=SYSDA
//*
//FILE06 DD DSN=&FILE06,
// DISP=(MOD,DELETE,DELETE),
// SPACE=(TRK,&SPACE1,RLSE),UNIT=SYSDA
//*
//FILE07 DD DSN=&FILE07,
// DISP=(MOD,DELETE,DELETE),
// SPACE=(TRK,&SPACE1,RLSE),UNIT=SYSDA
//*
//FILE08 DD DSN=&FILE08,
// DISP=(MOD,DELETE,DELETE),
// SPACE=(TRK,&SPACE1,RLSE),UNIT=SYSDA
//*
//SYSIN DD DUMMY
//SYSOUT DD SYSOUT=&SYSOUTX
//SYSPRINT DD SYSOUT=&SYSOUTX
//SYSUDUMP DD SYSOUT=&SYSOUTD
//*
It simply calls the IEFBR14 program to delete the list of files (this is an existing proc that I was using).
The complete Job execution details is as under:
Code:
STMT NO. MESSAGE
3 IEFC001I PROCEDURE MVRDLET WAS EXPANDED USING PRIVATE LIBRARY VLM.C1.P
18 IEFC001I PROCEDURE MVFTPA WAS EXPANDED USING PRIVATE LIBRARY ABCD.PMV
DTM1459I 2011.229 12:05:59 JOB AAAD1930 REQUEUED TO CLASS=U PRIORITY=6
37 IEF648I INVALID DISP FIELD- PASS SUBSTITUTED
ICH70001I ABCD LAST ACCESS AT 11:56:54 ON WEDNESDAY, AUGUST 17, 2011
IEF236I ALLOC. FOR AAAD1930 STEP01 AAABBBBA
IGD101I SMS ALLOCATED TO DDNAME (FILE01 )
DSN (ABCD.DL.MVD1950.UPDATE.IN1.D110815 )
STORCLAS (WORKSC) MGMTCLAS (WORKMC) DATACLAS (DSORGDC)
VOL SER NOS= SYST68
IEF237I DMY ALLOCATED TO FILE02
IEF237I DMY ALLOCATED TO FILE03
IEF237I DMY ALLOCATED TO FILE04
IEF237I DMY ALLOCATED TO FILE05
IEF237I DMY ALLOCATED TO FILE06
IEF237I DMY ALLOCATED TO FILE07
IEF237I DMY ALLOCATED TO FILE08
IEF237I DMY ALLOCATED TO SYSIN
IEF237I JES2 ALLOCATED TO SYSOUT
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I JES2 ALLOCATED TO SYSUDUMP
IEF142I AAAD1930 STEP01 AAABBBBA - STEP WAS EXECUTED - COND CODE 0000
IGD105I ABCD.DL.MVD1950.UPDATE.IN1.D110815 DELETED, DDNAME=FILE01
IEF285I ABCD.AAAD1930.JOB17327.D0000101.? SYSOUT
IEF285I ABCD.AAAD1930.JOB17327.D0000102.? SYSOUT
IEF285I ABCD.AAAD1930.JOB17327.D0000103.? SYSOUT
********************************************************************************
* DDNAME UNIT EXCPS BLKSIZE * DDNAME UNIT EXCPS BLKSIZE * DDNAME
* FILE01 D-CF26 0 N/A * FILE02 X/JES N/A N/A * FILE03
* FILE04 X/JES N/A N/A * FILE05 X/JES N/A N/A * FILE06
* FILE07 X/JES N/A N/A * FILE08 X/JES N/A N/A * SYSIN
* SYSOUT X/JES N/A N/A * SYSPRINT X/JES N/A N/A * SYSUDUMP
********************************************************************************
* TCB TIME: .00 PAGING I/O COUNTS: 3 DISK I/O COUNTS: 0 P
* SRB TIME: .00 SWAPS I/O COUNTS: 0 TAPE I/O COUNTS: 0 U
* PERF GROUP: 0 ADDR. SPACE SWAPS: 0 VIRT I/O COUNTS: 0 U
********************************************************************************
IEF373I STEP/STEP01 /START 2011229.1206
IEF374I STEP/STEP01 /STOP 2011229.1206 CPU 0MIN 00.00SEC SRB 0MIN 00.00S
IEF236I ALLOC. FOR AAAD1930 STEP01 AAABBBBC
IGD103I SMS ALLOCATED TO DDNAME DD01
IGD101I SMS ALLOCATED TO DDNAME (DD02 )
DSN (ABCD.DL.MVD1950.UPDATE.IN1.COMPARE )
STORCLAS (TSOSC) MGMTCLAS (TSOMC) DATACLAS (DSORGDC)
VOL SER NOS= TSO459
IGD101I SMS ALLOCATED TO DDNAME (DD03 )
DSN (ABCD.DL.MVD1950.UPDATE.IN1.COMPARE1 )
STORCLAS (TSOSC) MGMTCLAS (TSOMC) DATACLAS (DSORGDC)
VOL SER NOS= TSO463
IEF142I AAAD1930 STEP01 AAABBBBC - STEP WAS EXECUTED - COND CODE 0000
IGD105I ABCD.DL.PARM.D110817 DELETED, DDNAME=DD01
IGD105I ABCD.DL.MVD1950.UPDATE.IN1.COMPARE DELETED, DDNAME=DD02
IGD105I ABCD.DL.MVD1950.UPDATE.IN1.COMPARE1 DELETED, DDNAME=DD03
********************************************************************************
* DDNAME UNIT EXCPS BLKSIZE * DDNAME UNIT EXCPS BLKSIZE * DDNAME
* DD01 D-CF3A 0 N/A * DD02 D-CF37 0 N/A * DD03
********************************************************************************
* TCB TIME: .00 PAGING I/O COUNTS: 0 DISK I/O COUNTS: 0 P
* SRB TIME: .00 SWAPS I/O COUNTS: 0 TAPE I/O COUNTS: 0 U
* PERF GROUP: 0 ADDR. SPACE SWAPS: 0 VIRT I/O COUNTS: 0 U
********************************************************************************
IEF373I STEP/STEP01 /START 2011229.1206
IEF374I STEP/STEP01 /STOP 2011229.1206 CPU 0MIN 00.00SEC SRB 0MIN 00.00S
IEF236I ALLOC. FOR AAAD1930 STEP02 AAABBBBC
IEF237I E1E7 ALLOCATED TO SYSEXEC
IGD103I SMS ALLOCATED TO DDNAME TXTIN
IGD101I SMS ALLOCATED TO DDNAME (TXTOUT )
DSN (ABCD.DL.PARM.D110817 )
STORCLAS (TSOSC) MGMTCLAS (TSOMC) DATACLAS (DSORGDC)
VOL SER NOS= TSO476
IEF237I JES2 ALLOCATED TO SYSTSPRT
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I JES2 ALLOCATED TO SYSOUT
IEF142I AAAD1930 STEP02 AAABBBBC - STEP WAS EXECUTED - COND CODE 0000
IEF285I VLM.C1.PRODREXX KEPT
IEF285I VOL SER NOS= PLMS05.
IGD104I ABCD.PMV.PRODPARM RETAINED, DDNAME=TXTIN
IGD104I ABCD.DL.PARM.D110817 RETAINED, DDNAME=TXTOUT
IEF285I ABCD.AAAD1930.JOB17327.D0000104.? SYSOUT
IEF285I ABCD.AAAD1930.JOB17327.D0000105.? SYSOUT
IEF285I ABCD.AAAD1930.JOB17327.D0000106.? SYSOUT
********************************************************************************
* DDNAME UNIT EXCPS BLKSIZE * DDNAME UNIT EXCPS BLKSIZE * DDNAME
* SYSEXEC D-E1E7 4 6160 * TXTIN D-CF49 2 3120 * TXTOUT
* SYSTSPRT X/JES N/A N/A * SYSPRINT X/JES N/A N/A * SYSOUT
********************************************************************************
* TCB TIME: .01 PAGING I/O COUNTS: 0 DISK I/O COUNTS: 7 P
* SRB TIME: .00 SWAPS I/O COUNTS: 0 TAPE I/O COUNTS: 0 U
* PERF GROUP: 0 ADDR. SPACE SWAPS: 0 VIRT I/O COUNTS: 0 U
********************************************************************************
IEF373I STEP/STEP02 /START 2011229.1206
IEF374I STEP/STEP02 /STOP 2011229.1206 CPU 0MIN 00.01SEC SRB 0MIN 00.00S
IEF236I ALLOC. FOR AAAD1930 STEP04 AAABBBBC
IGD103I SMS ALLOCATED TO DDNAME NEWDD
IGD103I SMS ALLOCATED TO DDNAME OLDDD
IGD101I SMS ALLOCATED TO DDNAME (OUTDD )
DSN (SYS11229.T120601.RA000.AAAD1930.T1.H04 )
STORCLAS (WORKSC) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= SYS44I
IEF142I AAAD1930 STEP04 AAABBBBC - STEP WAS EXECUTED - COND CODE 0001
IGD104I ABCD.DL.MVD1950.UPDATE.IN1.D110817 RETAINED, DDNAME=NEWDD
IGD104I ABCD.DL.MVD1950.UPDATE.IN1.D110816 RETAINED, DDNAME=OLDDD
IGD106I SYS11229.T120601.RA000.AAAD1930.T1.H04 PASSED, DDNAME=OUTDD
********************************************************************************
* DDNAME UNIT EXCPS BLKSIZE * DDNAME UNIT EXCPS BLKSIZE * DDNAME
* NEWDD D-CF3F 48 27795 * OLDDD D-CF37 48 27795 * OUTDD
********************************************************************************
* TCB TIME: .01 PAGING I/O COUNTS: 0 DISK I/O COUNTS: 97 P
* SRB TIME: .00 SWAPS I/O COUNTS: 0 TAPE I/O COUNTS: 0 U
* PERF GROUP: 0 ADDR. SPACE SWAPS: 0 VIRT I/O COUNTS: 0 U
********************************************************************************
IEF373I STEP/STEP04 /START 2011229.1206
IEF374I STEP/STEP04 /STOP 2011229.1206 CPU 0MIN 00.01SEC SRB 0MIN 00.00S
IEF202I AAAD1930 STEP05 AAABBBBC - STEP WAS NOT RUN BECAUSE OF CONDITION CODES
IEF272I AAAD1930 STEP05 AAABBBBC - STEP WAS NOT EXECUTED.
********************************************************************************
* DDNAME UNIT EXCPS BLKSIZE * DDNAME UNIT EXCPS BLKSIZE * DDNAME
********************************************************************************
* TCB TIME: .00 PAGING I/O COUNTS: 0 DISK I/O COUNTS: 0 P
* SRB TIME: .00 SWAPS I/O COUNTS: 0 TAPE I/O COUNTS: 0 U
* PERF GROUP: 0 ADDR. SPACE SWAPS: 0 VIRT I/O COUNTS: 0 U
********************************************************************************
IEF373I STEP/STEP05 /START 2011229.1206
IEF374I STEP/STEP05 /STOP 2011229.1206 CPU 0MIN 00.00SEC SRB 0MIN 00.00S
IEF237I CF57 ALLOCATED TO SYS00001
IEF285I SYS11229.T120602.RA000.AAAD1930.R0488422 KEPT
IEF285I VOL SER NOS= SYS44I.
IGD105I SYS11229.T120601.RA000.AAAD1930.T1.H04 DELETED, DDNAME=OUTDD
IEF375I JOB/AAAD1930/START 2011229.1206
IEF376I JOB/AAAD1930/STOP 2011229.1206 CPU 0MIN 00.02SEC SRB 0MIN 00.00S
The JESMGLG is as under:
Code:
********************************* TOP OF DATA **********************************
J E S 2 J O B L O G -- S Y S T E M M V S 4 -- N O
12.05.59 JOB17327 ---- WEDNESDAY, 17 AUG 2011 ----
12.05.59 JOB17327 IRR010I USERID ABCD IS ASSIGNED TO THIS JOB.
12.05.59 JOB17327 IEF677I WARNING MESSAGE(S) FOR JOB AAAD1930 ISSUED
************************** THRUPUT MANAGER V6 R2.0 INFO LOG - START ************
VTM003I - JOB SUBMISSION CLASS A, PRIORITY 6.
THRUPUT MANAGER V6 R2.0 Job AAAD1930. Invalid job class for a user submitted job
VTM437I - AAAD1930 HAS NO INHIBITORS AND IS BOUND TO MVS4PLEX AGENT
VTM004I - JOB EXECUTION CLASS U, PRIORITY 6.
VTM005I - JOB ANALYSIS COMPLETE.
************************** THRUPUT MANAGER V6 R2.0 INFO LOG - END **************
12.06.01 JOB17327 IEF677I WARNING MESSAGE(S) FOR JOB AAAD1930 ISSUED
12.06.01 JOB17327 ICH70001I ABCD LAST ACCESS AT 11:56:54 ON WEDNESDAY, AUGU
12.06.01 JOB17327 $HASP373 AAAD1930 STARTED - WLM INIT - SRVCLASS BATLO - S
12.06.01 JOB17327 IEF403I AAAD1930 - STARTED - TIME=12.06.01
12.06.02 JOB17327 -
12.06.02 JOB17327 -------- JOB SUMMARY STATISTICS ------- CPU TIME ELAPSED
12.06.02 JOB17327 -PROCNAME STEPNAME PROGRAM RC EXCP (SEC.) TIME(SEC.
12.06.02 JOB17327 -STEP01 AAABBBBA IEFBR14 00 7 .00 .2
12.06.02 JOB17327 -STEP01 AAABBBBC IEFBR14 00 9 .00 .3
12.06.02 JOB17327 -STEP02 AAABBBBC IRXJCL 00 61 .01 .2
12.06.02 JOB17327 -STEP04 AAABBBBC ISRSUPC 01 138 .01 .2
12.06.02 JOB17327 -STEP05 AAABBBBC SORT FLUSH 0 .00 .0
12.06.02 JOB17327 IEF404I AAAD1930 - ENDED - TIME=12.06.02
12.06.02 JOB17327 -PGMR/DIST: PROD CNTL OCE - 215 .02 .9
12.06.02 JOB17327 -
12.06.02 JOB17327 $HASP395 AAAD1930 ENDED
------ JES2 JOB STATISTICS ------
17 AUG 2011 JOB EXECUTION DATE
38 CARDS READ
462 SYSOUT PRINT RECORDS
0 SYSOUT PUNCH RECORDS
29 SYSOUT SPOOL KBYTES
0.01 MINUTES EXECUTION TIME
The JESJCL is as under:
Code:
1 //AAAA1930 JOB (0415,MV00),'PROD CNTL OCE',
// CLASS=A,
// NOTIFY=&SYSUID,
// MSGCLASS=X,
// REGION=8M
//*
//*********************************************************************
//* MERCHANT PROFILE SYSTEM - OVERLAY MPD BY FIELD *
//* THIS JOB GET FILES FROM MIM THROUGH FTP FOR PMVD1950 *
//*********************************************************************
//* *
//*
IEFC653I SUBSTITUTION JCL - (0415,MV00),'PROD CNTL OCE',CLASS=A,NOTIFY=
2 //PROCS JCLLIB ORDER=(ABCD.PMV.FIXPROC,VLM.C1.PRODPROC)
//*
//*********************************************************************
//* THIS STEP DELETES THE FOLLOWING FILES (EXISTING FILES) *
//* OR THE NEW ONE GETTING CREATED DURING RUN IF IT IS NON EXISTING *
//*********************************************************************
3 //AAABBBBA EXEC MVRDLET,
// FILE01='ABCD.DL.MVD1950.UPDATE.IN1.D110815'
4 XXMVRDLET PROC FILE01=NULLFILE, FIRST FILE
XX FILE02=NULLFILE, SECOND FILE
XX FILE03=NULLFILE, THIRD FILE
XX FILE04=NULLFILE, FOURTH FILE
XX FILE05=NULLFILE, FIFTH FILE
XX FILE06=NULLFILE, SIXTH FILE
XX FILE07=NULLFILE, SEVENTH FILE
XX FILE08=NULLFILE, EIGHTH FILE
XX SPACE1='(0,0)', SPACE ALLOCATION
XX SYSOUTD='D', ABEND DUMP OUTPUT CLASS
XX SYSOUTX='*' SYSOUT OUTPUT CLASS
XX*
XX*********************************************************************
XX*********************************************************************
5 XXSTEP01 EXEC PGM=IEFBR14
XX* DELETE FILES
XX*********************************************************************
XX*
6 XXFILE01 DD DSN=&FILE01,
XX DISP=(MOD,DELETE,DELETE),
XX SPACE=(TRK,&SPACE1,RLSE),UNIT=SYSDA
XX*
IEFC653I SUBSTITUTION JCL - DSN=ABCD.DL.MVD1950.UPDATE.IN1.D110815,DISP=(MOD
RLSE),UNIT=SYSDA
7 XXFILE02 DD DSN=&FILE02,
XX DISP=(MOD,DELETE,DELETE),
XX SPACE=(TRK,&SPACE1,RLSE),UNIT=SYSDA
XX*
IEFC653I SUBSTITUTION JCL - DSN=NULLFILE,DISP=(MOD,DELETE,DELETE),SPACE=(TRK,
8 XXFILE03 DD DSN=&FILE03,
XX DISP=(MOD,DELETE,DELETE),
XX SPACE=(TRK,&SPACE1,RLSE),UNIT=SYSDA
XX*
IEFC653I SUBSTITUTION JCL - DSN=NULLFILE,DISP=(MOD,DELETE,DELETE),SPACE=(TRK,
9 XXFILE04 DD DSN=&FILE04,
XX DISP=(MOD,DELETE,DELETE),
XX SPACE=(TRK,&SPACE1,RLSE),UNIT=SYSDA
XX*
IEFC653I SUBSTITUTION JCL - DSN=NULLFILE,DISP=(MOD,DELETE,DELETE),SPACE=(TRK,
10 XXFILE05 DD DSN=&FILE05,
XX DISP=(MOD,DELETE,DELETE),
XX SPACE=(TRK,&SPACE1,RLSE),UNIT=SYSDA
XX*
IEFC653I SUBSTITUTION JCL - DSN=NULLFILE,DISP=(MOD,DELETE,DELETE),SPACE=(TRK,
11 XXFILE06 DD DSN=&FILE06,
XX DISP=(MOD,DELETE,DELETE),
XX SPACE=(TRK,&SPACE1,RLSE),UNIT=SYSDA
XX*
IEFC653I SUBSTITUTION JCL - DSN=NULLFILE,DISP=(MOD,DELETE,DELETE),SPACE=(TRK,
12 XXFILE07 DD DSN=&FILE07,
XX DISP=(MOD,DELETE,DELETE),
XX SPACE=(TRK,&SPACE1,RLSE),UNIT=SYSDA
XX*
IEFC653I SUBSTITUTION JCL - DSN=NULLFILE,DISP=(MOD,DELETE,DELETE),SPACE=(TRK,
13 XXFILE08 DD DSN=&FILE08,
XX DISP=(MOD,DELETE,DELETE),
XX SPACE=(TRK,&SPACE1,RLSE),UNIT=SYSDA
XX*
IEFC653I SUBSTITUTION JCL - DSN=NULLFILE,DISP=(MOD,DELETE,DELETE),SPACE=(TRK,
14 XXSYSIN DD DUMMY
15 XXSYSOUT DD SYSOUT=&SYSOUTX
IEFC653I SUBSTITUTION JCL - SYSOUT=*
16 XXSYSPRINT DD SYSOUT=&SYSOUTX
IEFC653I SUBSTITUTION JCL - SYSOUT=*
17 XXSYSUDUMP DD SYSOUT=&SYSOUTD
XX*
//*
//*********************************************************************
//*
//** FTP 1ST FILE
//*
//*********************************************************************
//* THIS STEP FTP 1950 FILE FROM MIM SERVER TO MAINFRAME *
//*********************************************************************
IEFC653I SUBSTITUTION JCL - SYSOUT=D
18 //AAABBBBC EXEC MVFTPA,
// HLQ='ABCD',
// VLM='ABCD.PMV',
// FNUM='1',
//* YYMMDD='%P0DATEC',
//* PREV_DT='%M1DATEC',
// YYMMDD='110817',
// PREVDT='110816',
//* IPARM2='(EXIT=01 ',
// COND=(0,NE)
19 XXMVFTPA PROC VLM='VLM.C1', VISA/C1 LIBRARIES
XX HLQ='PMV',
XX FREQ='DL',
XX RUNPARM='PARM',
XX SPACE='(10,20)',
XX UNIT='RESDA',
XX PARMLIB='PRODPARM', SYSTEM PARM LIBRARY
XX SYSOUTX='*', SYSOUT OUTPUT CLASS
XX* FTPPARM=, FTP PARAMETERS
XX* IPARM1='10.55.34.36 21 ', I.P. OF SERVER
XX* IPARM2='(EXIT=05 ', RC FOR FTP FAILURE
XX* IPARM3='TIMEOUT 720', TIME BEFORE TIMEOUT
XX YYMMDD=''
XX*
XX********************************************************************
XX* STEP01 : THIS STEP IS RESTARTABLE *
XX* PGM : IEFBR14 *
XX* PURPOSE: THIS STEP DELETES THE LIST OF FILES THAT WERE CREATED *
XX* DURING THE PREVIOUS RUN OF THE JOB *
XX********************************************************************
XX*
20 XXSTEP01 EXEC PGM=IEFBR14
XX*
21 XXDD01 DD DSN=&HLQ..&FREQ..&RUNPARM..D&YYMMDD,
XX DISP=(MOD,DELETE,DELETE),
XX UNIT=&UNIT,
XX SPACE=(TRK,&SPACE,RLSE)
XX*
IEFC653I SUBSTITUTION JCL - DSN=ABCD.DL.PARM.D110817,DISP=(MOD,DELETE,DELETE
RLSE)
22 XXDD02 DD DSN=&HLQ..DL.MVD1950.UPDATE.IN&FNUM..COMPARE,
XX DISP=(MOD,DELETE,DELETE),
XX UNIT=&UNIT,
XX SPACE=(TRK,&SPACE,RLSE)
XX*
IEFC653I SUBSTITUTION JCL - DSN=ABCD.DL.MVD1950.UPDATE.IN1.COMPARE,DISP=(MOD
SPACE=(TRK,(10,20),RLSE)
23 XXDD03 DD DSN=&HLQ..DL.MVD1950.UPDATE.IN&FNUM..COMPARE1,
XX DISP=(MOD,DELETE,DELETE),
XX UNIT=&UNIT,
XX SPACE=(TRK,&SPACE,RLSE)
XX*
XX********************************************************************
XX* STEP02 : THIS STEP IS RESTARTABLE *
XX* PGM : IRXJCL *
XX* PURPOSE: THIS STEP ADDS THE DATE TO THE FILE THAT WILL BE FTP'D *
XX* FROM THE SERVER *
XX********************************************************************
XX*
IEFC653I SUBSTITUTION JCL - DSN=ABCD.DL.MVD1950.UPDATE.IN1.COMPARE1,DISP=(MO
SPACE=(TRK,(10,20),RLSE)
24 XXSTEP02 EXEC PGM=IRXJCL,
XX PARM='D2RX0042 +$=1/$PDATE=&YYMMDD/$HLQ=&HLQ/$FNUM=&FNUM'
XX*
IEFC653I SUBSTITUTION JCL - PGM=IRXJCL,PARM='D2RX0042 +$=1/$PDATE=110817/$HLQ
25 XXSYSEXEC DD DSN=VLM.C1.PRODREXX,
XX DISP=SHR
XX*
26 XXTXTIN DD DSN=&VLM..&PARMLIB(AAABBBB),
XX DISP=SHR
XX*
IEFC653I SUBSTITUTION JCL - DSN=ABCD.PMV.PRODPARM(AAABBBB),DISP=SHR
27 XXTXTOUT DD DSN=&HLQ..&FREQ..&RUNPARM..D&YYMMDD,
XX DISP=(NEW,CATLG,DELETE),
XX UNIT=&UNIT,
XX SPACE=(TRK,&SPACE,RLSE),
XX DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
XX*
IEFC653I SUBSTITUTION JCL - DSN=ABCD.DL.PARM.D110817,DISP=(NEW,CATLG,DELETE)
RLSE),DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
28 XXSYSTSPRT DD SYSOUT=&SYSOUTX
IEFC653I SUBSTITUTION JCL - SYSOUT=*
29 XXSYSPRINT DD SYSOUT=&SYSOUTX
IEFC653I SUBSTITUTION JCL - SYSOUT=*
30 XXSYSOUT DD SYSOUT=&SYSOUTX
XX*
XX********************************************************************
XX* STEP03 : THIS STEP IS RESTARTABLE *
XX* PGM : FTP *
XX* PURPOSE: THIS STEP FTPS THE FILES FROM THE SERVER *
XX********************************************************************
XX*
XX*STEP03 EXEC PGM=FTP,REGION=7M,
XX* PARM='&IPARM1&IPARM2&IPARM3'
XX*
XX*INPUT DD DSN=&HLQ..&FREQ..&RUNPARM..D&YYMMDD,
XX* DISP=SHR
XX*
XX*SYSPRINT DD SYSOUT=&SYSOUTX
XX*SYSOUT DD SYSOUT=&SYSOUTX
XX*
XX********************************************************************
XX* STEP04 : THIS STEP IS RESTARTABLE *
XX* PGM : ISRSUPC *
XX* PURPOSE: THIS STEP COMPARES THE FILES THAT HAVE BEEN FTP'D FROM *
XX* THE SERVER ON THE PREVIOUS DAY *
XX********************************************************************
XX*
IEFC653I SUBSTITUTION JCL - SYSOUT=*
31 XXSTEP04 EXEC PGM=ISRSUPC,
XX PARM=(DELTAL,LINECMP,
XX 'NOPRTCC',
XX '')
32 XXNEWDD DD DSN=&HLQ..DL.MVD1950.UPDATE.IN&FNUM..D&YYMMDD,
XX DISP=SHR
XX*
IEFC653I SUBSTITUTION JCL - DSN=ABCD.DL.MVD1950.UPDATE.IN1.D110817,DISP=SHR
33 XXOLDDD DD DSN=&HLQ..DL.MVD1950.UPDATE.IN&FNUM..D&PREVDT,
XX DISP=SHR
XX*
XX*UTDD DD SYSOUT=(A)
IEFC653I SUBSTITUTION JCL - DSN=ABCD.DL.MVD1950.UPDATE.IN1.D110816,DISP=SHR
34 XXOUTDD DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE),
XX DISP=(MOD,PASS),
XX DCB=(RECFM=FB,LRECL=255)
XX*
XX********************************************************************
XX* STEP05 : THIS STEP IS RESTARTABLE *
XX* PGM : SORT *
XX* PURPOSE: THIS STEP CHECKS IF THE FILE HAS ANY MODIFICATION *
XX********************************************************************
XX*
35 XX IF (STEP04.RC EQ 1) THEN
36 XXSTEP05 EXEC PGM=SORT
XX*
37 XXSORTIN DD DSN=&&T1,DCB=(RECFM=FB,LRECL=255),
XX DISP=MOD
XX*
38 XXSORTOUT DD DSN=&HLQ..DL.MVD1950.UPDATE.IN&FNUM..COMPARE1,
XX DISP=(NEW,CATLG,DELETE),UNIT=RESDA,
XX DCB=*.SORTIN,SPACE=(CYL,(1000,2000),RLSE)
XX*
IEFC653I SUBSTITUTION JCL - DSN=ABCD.DL.MVD1950.UPDATE.IN1.COMPARE1,DISP=(NE
DCB=*.SORTIN,SPACE=(CYL,(1000,2000),RLSE)
39 XXSORTWK01 DD UNIT=SYSDA
40 XXSORTWK02 DD UNIT=SYSDA
41 XXSORTWK03 DD UNIT=SYSDA
42 XXSORTWK04 DD UNIT=SYSDA
43 XXSORTWK05 DD UNIT=SYSDA
44 XXSORTWK06 DD UNIT=SYSDA
45 XXSORTWK07 DD UNIT=SYSDA
46 XXSORTWK08 DD UNIT=SYSDA
47 XXSORTWK09 DD UNIT=SYSDA
48 XXSORTWK10 DD UNIT=SYSDA
49 XXSORTWK11 DD UNIT=SYSDA
50 XXSORTWK12 DD UNIT=SYSDA
51 XXSORTWK13 DD UNIT=SYSDA
52 XXSORTWK14 DD UNIT=SYSDA
53 XXSORTWK15 DD UNIT=SYSDA
54 XXSORTWK16 DD UNIT=SYSDA
55 XXSORTWK17 DD UNIT=SYSDA
56 XXSORTWK18 DD UNIT=SYSDA
57 XXSORTWK19 DD UNIT=SYSDA
58 XXSORTWK20 DD UNIT=SYSDA
59 XXSYSIN DD DSN=&VLM..&PARMLIB(AAABBBB5),
XX DISP=SHR
XX*
IEFC653I SUBSTITUTION JCL - DSN=ABCD.PMV.PRODPARM(AAABBBB5),DISP=SHR
60 XXSYSOUT DD SYSOUT=*
61 XXSYSPRINT DD SYSOUT=*
62 XX ENDIF
63 XX
Please let me know if I have provided all the required details that you are looking for.
Back to top
Garry Carroll Senior Member Joined: 08 May 2006Posts: 1193 Location: Dublin, Ireland
swapnadeep.ganguly wrote:
Quote:
Does the JCL have COND=(0,NE) on the statement which refers the PROC?
No Vasanth,
There is no COND code as you had mentioned.
Quote:
Your snippets from the jobs look incomplete. Are there steps before
Yes there are STEPS before which are simply FTP'ing files from the server for the current date and then its comparing with the file from the previous date.
... and yet we see ..
Code:
//AAABBBBC EXEC MVFTPA,
// HLQ='ABCD',
// VLM='ABCD.PMV',
// FNUM='1',
//* YYMMDD='%P0DATEC',
//* PREV_DT='%M1DATEC',
// YYMMDD='110817',
// PREVDT='110816',
//* IPARM2='(EXIT=01 ',
// COND=(0,NE)
...where the last line has EXACTLY what was asked.
Garry.
Back to top
swapnadeep.ganguly Active User Joined: 21 Mar 2007Posts: 203 Location: India
Got my error.
I am really very very sorry that I had bothered you all...
My sincere apologies to all of you..
Back to top
vasanthz Global Moderator Joined: 28 Aug 2007Posts: 1742 Location: Tirupur, India
Psychic Tuesday :-)
Quote:
I am really very very sorry that I had bothered you all...
Don't Worry about it, we have bigger things to worry like Anna's arrest.
Back to top
swapnadeep.ganguly Active User Joined: 21 Mar 2007Posts: 203 Location: India
Yeah I agree totally...
However due to all my silly mistakes and bad comments i am embarassed...
Back to top
dick scherrer Moderator Emeritus Joined: 23 Nov 2006Posts: 19244 Location: Inside the Matrix
Hello,
Quote:
However due to all my silly mistakes and bad comments i am embarassed...
Don't be too embarrassed - learn from this. It is easy to get too close to a "thing" to see it
Back to top
don.leahy Active Member Joined: 06 Jul 2010Posts: 765 Location: Whitby, ON, Canada
dbzTHEdinosauer wrote:
well, I did not know that you could have instream data in a PROC
Coincidentally, I just heard that this restriction will be removed in z/OS 1.13.
Back to top
Bill Woodger Moderator Emeritus Joined: 09 Mar 2011Posts: 7309 Location: Inside the Matrix
don.leahy wrote:
dbzTHEdinosauer wrote:
well, I did not know that you could have instream data in a PROC
Coincidentally, I just heard that this restriction will be removed in z/OS 1.13.
That would be a turn-up. I always thought it was because "cards is cards" (physical originally) and a stored-procedure couldn't contain "cards".
I'd much rather have by "cards" in a "member", backed-up, all the same type of stuff in one place, etc. I wonder how would you "override" a "card"? We'll see, I suppose.
Back to top
don.leahy Active Member Joined: 06 Jul 2010Posts: 765 Location: Whitby, ON, Canada
Bill Woodger wrote:
don.leahy wrote:
dbzTHEdinosauer wrote:
well, I did not know that you could have instream data in a PROC
Coincidentally, I just heard that this restriction will be removed in z/OS 1.13.
That would be a turn-up. I always thought it was because "cards is cards" (physical originally) and a stored-procedure couldn't contain "cards".
I'd much rather have by "cards" in a "member", backed-up, all the same type of stuff in one place, etc. I wonder how would you "override" a "card"? We'll see, I suppose.
I agree, especially in a production system. It will also be interesting to see if you can use symbols in the instream data.
Back to top
Bill Woodger Moderator Emeritus Joined: 09 Mar 2011Posts: 7309 Location: Inside the Matrix
Yoy, you're right Don.
Hey, what it we can do them in IF/THEN as well!
Back to top
dick scherrer Moderator Emeritus Joined: 23 Nov 2006Posts: 19244 Location: Inside the Matrix
Hello,
Methinks that the more we dumb down the environment for those who have not been taught properly or are just lazy, the tougher/uglier it will be on the people who are quite proficient and have been for years.
For this one, sure let's put the 1000 cards in 50 or so PROCs. . .
Back to top
Please enable JavaScript!