MVSFORUMS.com

[nbdtrjk]

Hi..
I am having a Flat File, recfm is FB and Lrecl is 80...In 25 position having some dates(YYYYMMDD). My requirement is i want to change the Existing Dates to Current Date usig JCL.


Thanks In Advance.

[sharada]

Hi nbdtrjk,

you can hard code the current date in the required position using date functions (like &DATExP there are so many in built functions available).

Sharada.

[shekar123]

Sharada,

Can yow show an example as how it can be done using those functions with a sample JCL ?
_________________
Shekar
Grow Technically

[kolusu]

[shekar123]

Kolusu,

I am getting syntax error.Can u please let me know what should be the correct code ?.

Code:

ICE143I 0 BLOCKSET     COPY  TECHNIQUE SELECTED                                  ICE000I 1 - CONTROL STATEMENTS FOR 5740-SM1, DFSORT REL 14.0 - 18:43 ON TUE MAR             SORT FIELDS=COPY                                                                OUTREC FIELDS=(1,4,DATE=(4MD-))                                                                     $                                                ICE007A E SYNTAX ERROR                                                          ICE052I 3 END OF DFSORT

_________________
Shekar
Grow Technically

[kolusu]

shekar123,

I guess you are missing the latest PTF. Frank might be able to tell you if your version supports the date parameter.

Mean while try this

[shekar123]

Kolusu,

The DATE1 code also did not work in my test shop and i am guessing that i have R14 (not latest PFT) which is not supporting me , so i had run your code in my development system and it works fine.You are simply great.

Code:

//STEP0100 EXEC PGM=SORT                                                //SYSOUT   DD SYSOUT=*                                                  //SORTIN   DD *                                                          ABC 2004-10-25                                                          //SORTOUT  DD SYSOUT=*                                                  //SYSIN    DD *                                                            SORT FIELDS=COPY                                                        OUTREC FIELDS=(1,4,DATE=(4MD-))                                          /*                                                                      //STEP0200 EXEC PGM=SORT                                                //SYSOUT   DD SYSOUT=*                                                  //SORTIN   DD *                                                          ABC 2004-10-25                                                          //SORTOUT  DD SYSOUT=*                                                  //SYSIN    DD *                                                            SORT FIELDS=COPY                                                        OUTREC FIELDS=(1,4,DATE1)                                                OUTFIL OUTREC=(1,4,                 5,4,                 C'-',                 9,2,                 C'-',                11,2) /*                    //

OUTPUT

Code:

STEP0100   ABC 20060321 STEP0200   ABC 2006-03-21

_________________
Shekar
Grow Technically

[nbdtrjk]

STEP0100 ABC 2006-03-21
STEP0200 ABC 2006-03-21



In Both the above Steps i got same values...What is wrong in that...and Give explanation abt OUTREC FIELDS=(1,4,DATE=(4MD/))... Espeically DATE=(4MD/)





below is the one which i submitted

[kolusu]

nbdtrjk,

[nbdtrjk]

Sorry for my Mistake


STEP0100 ABC 2006/03/21
STEP0200 ABC 2006/03/21


Both the above Steps i got same values...What is wrong in that ?

[kolusu]

[Frank Yaeger]