Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Comparing current time with the time present in the file

 
Post new topic   This topic is locked: you cannot edit posts or make replies.    IBMMAINFRAMES.com Support Forums -> SYNCSORT
View previous topic :: :: View next topic  
Author Message
arunsoods

New User


Joined: 13 Jul 2016
Posts: 35
Location: India

PostPosted: Mon Oct 30, 2017 4:07 pm    Post subject: Comparing current time with the time present in the file
Reply with quote

Hi Team I want to compare current time with the time present in the file when the job is on "HOLD".

Code:
//SYSOUT   DD SYSOUT=*                                             
//SYSIN    DD *                                                   
  JOINKEYS FILE=F1,FIELDS=(1,08,A)                                 
  JOINKEYS FILE=F2,FIELDS=(1,08,A)                                 
  REFORMAT FIELDS=(F1:1,08,F2:10,4,F1:10,20)                       
  JOIN UNPAIRED,F2                                                 
  SORT FIELDS=COPY                                                 
  OMIT COND=(13,20,CH,EQ,C'ENDED_OK')                             
  OUTREC IFTHEN=(WHEN=(13,20,CH,EQ,C'NOT_OK'),                     
                 BUILD=(1,8,C' ',09,4,C' ',13,20)),               
         IFTHEN=(WHEN=(09,4,CH,LE,&TIME2,AND,13,20,CH,EQ,C'HOLD'),
                 BUILD=(1,8,C' ',09,4,C' ',13,20)),               
         IFTHEN=(WHEN=(13,20,CH,EQ,C'JOB WAIT SCHEDULE'),         
                 BUILD=(1,8,C' ',09,4,C' ',13,20))                 
/*                                                                 


When I am running above mentioned code I am getting below error:-
Code:

SYSIN :                                                               
  JOINKEYS FILE=F1,FIELDS=(1,08,A)                                     
  JOINKEYS FILE=F2,FIELDS=(1,08,A)                                     
  REFORMAT FIELDS=(F1:1,08,F2:10,4,F1:10,20)                           
  JOIN UNPAIRED,F2                                                     
  SORT FIELDS=COPY                                                     
  OMIT COND=(13,20,CH,EQ,C'ENDED_OK')                                 
  OUTREC IFTHEN=(WHEN=(13,20,CH,EQ,C'NOT_OK'),                         
                 BUILD=(1,8,C' ',09,4,C' ',13,20)),                   
         IFTHEN=(WHEN=(09,4,CH,LE,&TIME2,13,20,CH,EQ,C'HOLD'),         
                                  *                                   
                 BUILD=(1,8,C' ',09,4,C' ',13,20)),                   
         IFTHEN=(WHEN=(13,20,CH,EQ,C'JOB WAIT SCHEDULE'),             
                 BUILD=(1,8,C' ',09,4,C' ',13,20))                     
WER813I  INSTALLATION OPTIONS IN MFX LOAD LIBRARY WILL BE USED         
WER268A  OUTREC STATEMENT  : SYNTAX ERROR                             
WER211B  SYNCSMF  CALLED BY SYNCSORT; RC=0000                         
WER449I  SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE                                           
Back to top
View user's profile Send private message

Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2188
Location: Hampshire, UK

PostPosted: Mon Oct 30, 2017 5:12 pm    Post subject:
Reply with quote

You are not using DFsort but Syncsort. DFsort control cards may not work with Syncsort. Try using Syncsort control cards and post in the syncsort part of the forum if you still have problems.
Locked.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   This topic is locked: you cannot edit posts or make replies.    IBMMAINFRAMES.com Support Forums -> SYNCSORT All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Access file which has DSNTYPE=LIBRARY maxsubrat JCL & VSAM 11 Fri Jun 21, 2019 4:09 pm
No new posts Mainframe to linux file count mismatch shreya19 All Other Mainframe Topics 4 Thu Jun 13, 2019 9:49 pm
No new posts Verify WITH UR present inside program... priyankakir CLIST & REXX 23 Wed Jun 12, 2019 3:37 pm
No new posts Copy physical Tape files to a Mainfra... Dadi Krishna Teja JCL & VSAM 11 Thu May 16, 2019 10:25 pm
No new posts Display current IMS region on an On-l... Time2Live IMS DB/DC 1 Fri May 03, 2019 1:59 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us