Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

I found this actual job on our system ...

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Thu May 13, 2010 11:08 pm    Post subject: I found this actual job on our system ...
Reply with quote

I found this job actually on our system as a real production job:

Code:

//P###### JOB (.,.....,....),'',CLASS=...,                     
//         MSGCLASS=...,REGION=0M                                           
//JOBLIB DD DSN=PROD....LOADLIB,DISP=SHR                               
//*                                                                       
// SET TCSTRM='01'                                                       
// SET TYPE='R'                                                           
// SET FSETI='A'                                                         
// SET FSETO='A'                                                         
// SET QT=''''                                                           
// SET JOB='P#######'                                                     
// SET STRGRP='XXX'                                                       
// SET SP=' '                                                             
//CMD2FC2 EXEC PGM=...
// IF CMD2FC2.RC EQ 3000 THEN                                             
// SET F2COPY='RR'                                                       
//*                                                                       
//CHECKENQ EXEC CHECKENQ                                                 
//*                                                                       
//FDRDEL   EXEC  FDRDEL                                                   
// SET F2COPY='01'                                                       
//FC2      EXEC  FC2                                                     
// ENDIF     


I wonder what they think it's supposed to be doing?
Back to top
View user's profile Send private message

Craq Giegerich

Senior Member


Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA

PostPosted: Thu May 13, 2010 11:42 pm    Post subject: Re: I found this actual job on our system ...
Reply with quote

//CHECKENQ EXEC CHECKENQ
//FDRDEL EXEC FDRDEL
//FC2 EXEC FC2


Without seeing what is in the 3 proc's being executed it would be hard to know (even after seeing them it would be hard to know).

Just guessing based on 'EXEC CHECKENQ' I would say it has something to do with check printing.
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2502
Location: Atlanta, Georgia, USA

PostPosted: Fri May 14, 2010 12:01 am    Post subject: Reply to: I found this actual job on our system ...
Reply with quote

Maybe they're related to "FDR" (Innovation Data Processing)?

IAM File Processing?

http://www.fdr.com

Bill
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Fri May 14, 2010 12:19 am    Post subject: Reply to: I found this actual job on our system ...
Reply with quote

The only thing in the CHECKENQ PROC is one step that executes IEFBR14. FDRDEL probably does run FDR.

I was thinking of their (improper) use of the variable F2COPY. I hope the job never actually needs it to be 'RR'.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10211
Location: italy

PostPosted: Fri May 14, 2010 12:37 am    Post subject: Reply to: I found this actual job on our system ...
Reply with quote

I really do not understand,
the only thing that is clear is that they are obfuscating things

I just run a quick test
Code:
000001 //ENRICO$A JOB CLASS=A,NOTIFY=&SYSUID,MSGCLASS=X
000002 // SET SUFF=AA
000003 //AMS     EXEC PGM=IDCAMS
000004 //SYSPRINT  DD SYSOUT=*
000005 //SYSIN     DD *
000006   SET MAXCC = 8
000007 /*
000008 // IF AMS.RC = 4 THEN
000009 // SET SUFF=BB
000010 //BR14    EXEC PGM=IEFBR14
000011 // ENDIF
000012 //BR15    EXEC PGM=IEFBR14
000013 //NEW       DD DISP=(NEW,CATLG),DSN=ENRICO.TEST.&SUFF,
000014 //             SPACE=(CYL,(1,1,1)),
000015 //             DCB=(RECFM=FB,LRECL=80)

and whatever is the MAXCC set by the IDCAMS Step SUFF will always hold BB

the set JCL statements are executed in sequence disregarding the IFs

to run quick and dirty tests for RC processing
the IDCAMS SET MAXCC is just great
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Fri May 14, 2010 12:46 am    Post subject: Reply to: I found this actual job on our system ...
Reply with quote

Right. All SET statements are resolved during the scan, so no matter what happens the value of F2COPY will always be '01'. As far as I'm concerned the might as well place it up above with the rest of the SET statements.

I'm just suprised that they let those jobs slip into production like that.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts Check System time(Minute) Using TIME1... balaji81_k DFSORT/ICETOOL 5 Fri Nov 11, 2016 10:53 am
No new posts Get system time in micro second or cl... lind sh CICS 11 Mon Sep 05, 2016 11:14 pm
No new posts Add system date inside of a PS file a... pramitdas DFSORT/ICETOOL 5 Sun Aug 28, 2016 12:06 am
No new posts System availability in CICS Robert Sample CICS 10 Sat Jun 04, 2016 4:35 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us