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: 4649
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: 4649
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: 10274
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: 4649
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 How system know which REXX to excute? jackzhang75 CLIST & REXX 14 Thu Jul 06, 2017 1:09 am
No new posts Record Not found in AlX but record re... mukun264 COBOL Programming 7 Fri Mar 24, 2017 9:28 am
No new posts Row not found Sql error GaganGarg DB2 7 Tue Mar 07, 2017 6:29 am
No new posts Overlay the system date Danielle.Filteau SYNCSORT 4 Fri Mar 03, 2017 1:16 am
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm


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