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: 2108
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 Signed Packed decimal and p... Virendra Shambharkar SYNCSORT 0 Wed Nov 14, 2018 9:37 am
No new posts Will this code extract 1 byte from fi... pkmurali CLIST & REXX 8 Sat Nov 10, 2018 11:13 pm
No new posts Error reading file in REXX module ashek15 CLIST & REXX 3 Wed Oct 24, 2018 4:50 am
No new posts Convert VB file to FB plus special fo... cz016m SYNCSORT 15 Fri Oct 19, 2018 7:26 pm
No new posts Picking up the latest PS file pema_yozer JCL & VSAM 8 Thu Oct 11, 2018 12:26 pm

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