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
 
Overlay the system date

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> SYNCSORT
View previous topic :: :: View next topic  
Author Message
Danielle.Filteau

New User


Joined: 02 Dec 2014
Posts: 16
Location: Canada

PostPosted: Fri Mar 03, 2017 1:16 am    Post subject: Overlay the system date
Reply with quote

Hi,
I'm new to Syncsort and am ready to tear my hair out, for something that should be simple yet all I get are syntax errors.

I have a file header and I wish to add the system date to it, then write it back out. I cannot seem to get OVERLAY to work.

Code:

* Active CCID search                   Rundate: yyyy-mm-dd-hh.mm.ss
* PF10/PF11 to show additional columns
*
* CCID         Env      # System   Subsys   CCID-Eff CCID-Xpry CreateBy
*---+----1----+----2----+----3----+----4----+----5----+----6----+----7-


it ran but didn't overlay anything, the output looks exactly the same as the input.

Code:

SYNCSORT FOR Z/OS  2.1.3.0R    U.S. PATENTS: 4210961, 5117495   (C)
SYSIN :
  SORT FIELDS=COPY
  OUTFIL FNAMES=ACTSRCH,
         IFTHEN=(WHEN=(3,8,CH,EQ,C'Active'),
             OVERLAY=(49:&DATE4)),
         IFTHEN=(WHEN=(3,8,CH,NE,C'Active'),
             BUILD=(1,140))
WER813I  INSTALLATION OPTIONS IN MFX LOAD LIBRARY WILL BE USED
WER276B  SYSDIAG= 11280078, 20442245, 20442245, 22994775
WER164B  6,916K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B     0 BYTES RESERVE REQUESTED, 2,388,660 BYTES USED
WER108I  SORTIN   : RECFM=FB   ; LRECL=   200; BLKSIZE= 27800
WER073I  SORTIN   : DSNAME=SXSC.NDVRC1.CCID.ACTSRCH.HDR
WER110I  ACTSRCH  : RECFM=FB   ; LRECL=   200; BLKSIZE= 27800
WER074I  ACTSRCH  : DSNAME=DXF125.SXSC.NDVRC1.CCIDVAL.ACTSRCH
WER410B  5,888K BYTES OF VIRTUAL STORAGE AVAILABLE ABOVE THE 16-MEGABYTE LINE,
WER410B     0 BYTES RESERVE REQUESTED, 2,241,204 BYTES USED
WER405I  ACTSRCH  :  DATA RECORDS OUT          7; TOTAL RECORDS OUT          7
WER211B  SYNCSMF  CALLED BY SYNCSORT; RC=0000
WER449I  SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
WER416B  SORTIN   : EXCP'S=1,UNIT=3390,DEV=25C0,CHP=(98999A9B9C9D,1),VOL=END20
WER416B  OUTFIL WAS USED FOR SORTOUT
WER054I  RCD IN          7, OUT          7
WER169I  RELEASE 2.1 BATCH 0539 TPF LEVEL 3.0
WER052I  END SYNCSORT - TESTACT,SRCHNXT1,,DIAG=E000,7306,C822,00C4,A8DE,4CAB,8


What the heck am I doing wrong?

thanks
Back to top
View user's profile Send private message

daveporcelan

Active Member


Joined: 01 Dec 2006
Posts: 683
Location: Pennsylvania

PostPosted: Fri Mar 03, 2017 1:23 am    Post subject:
Reply with quote

Try:
Code:
IFTHEN=(WHEN=(3,6,CH,EQ,C'Active'),


I believe it is start,length not start,end

Also you should not need the second IFTHEN statement
Back to top
View user's profile Send private message
Danielle.Filteau

New User


Joined: 02 Dec 2014
Posts: 16
Location: Canada

PostPosted: Fri Mar 03, 2017 2:37 am    Post subject:
Reply with quote

Thank you!!!! that was it.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7315

PostPosted: Fri Mar 03, 2017 2:43 am    Post subject: Reply to: Overlay the system date
Reply with quote

Note Dave's point about not needing the second IFTHEN. If you are not changing any of the data, you can just leave it as it is (more efficient to run as well as less code).

If you effectively want an ELSE/OTHERWISE, look at IFTHEN=(WHEN=NONE...
Back to top
View user's profile Send private message
Danielle.Filteau

New User


Joined: 02 Dec 2014
Posts: 16
Location: Canada

PostPosted: Fri Mar 03, 2017 2:46 am    Post subject:
Reply with quote

Thanks, the second IFTHEN was removed. On to the next challenge: joining data from 2 files to fill in the report data.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    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 Compare yesterday's date to the one o... migusd SYNCSORT 8 Fri Sep 22, 2017 11:35 pm
No new posts Validate the Date girishb2 DFSORT/ICETOOL 9 Tue Sep 19, 2017 1:12 am
No new posts Julian Date to CICS ABSTTIME blayek CICS 3 Wed Aug 30, 2017 11:15 pm
No new posts How to add header with Date(YYMMDD) i... Rajan Moorthy DFSORT/ICETOOL 2 Thu Jul 06, 2017 11:44 pm
No new posts How system know which REXX to excute? jackzhang75 CLIST & REXX 14 Thu Jul 06, 2017 1:09 am

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