IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Comparing current time with the time present in the file


IBM Mainframe Forums -> SYNCSORT
Post new topic   This topic is locked: you cannot edit posts or make replies.
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
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: 2455
Location: Hampshire, UK

PostPosted: Mon Oct 30, 2017 5:12 pm
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. View Bookmarks
All times are GMT + 6 Hours
Forum Index -> SYNCSORT

 


Similar Topics
Topic Forum Replies
No new posts Cobol-db2 : SQL query is running for ... DB2 4
No new posts Get two files from one file with diff... DFSORT/ICETOOL 10
No new posts View GDG data which is copied from a ... JCL & VSAM 2
No new posts How to read unpacked field created in... DFSORT/ICETOOL 11
No new posts How to add 2 digits to COMP-3 file? DFSORT/ICETOOL 11
Search our Forums:

Back to Top