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: 33
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: 1922
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 Comparing dates in different formats migusd SYNCSORT 0 Sat Nov 18, 2017 3:02 am
No new posts VBS and VB, COBOL syntax is the same ... natt.sut COBOL Programming 3 Sun Nov 12, 2017 6:36 am
No new posts Comparision with current time arunsoods DFSORT/ICETOOL 5 Thu Nov 09, 2017 10:37 am
No new posts Updating data from one file to other!!! Vignesh Sid SYNCSORT 1 Mon Nov 06, 2017 2:42 pm
This topic is locked: you cannot edit posts or make replies. Need help how to pass the ESP variabl... Venkichaitu JCL & VSAM 12 Thu Nov 02, 2017 3:53 am

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