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: 2011
Location: 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 Process file after 7 days of hold charlessxavier All Other Mainframe Topics 0 Tue May 22, 2018 3:54 pm
No new posts TRAILER3 is creating blank record in ... kodeesm DFSORT/ICETOOL 3 Fri May 18, 2018 5:45 pm
No new posts Cobol program till a given time or fo... ankita agarwal COBOL Programming 7 Fri May 18, 2018 2:24 pm
No new posts Transfer of mainframe file to PC in Z... maxsubrat JCL & VSAM 4 Thu May 17, 2018 11:35 am
No new posts Rexx command to open an another text ... Bharath Vikraman PC Guides & IT News 7 Sat May 12, 2018 4:34 pm

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