Search found 35 matches

by simo78
Tue Sep 30, 2014 12:02 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Sort help
Replies: 4
Views: 5133

@Attack1988 The JOB will not abend. I tryed this,too //SORT EXEC PGM=SORT //SORTIN DD * ABC.ZTUIDR.CNO113.G0001V00 //SORTOUT DD SYSOUT=*,LRECL=80 //SYSOUT DD SYSOUT=* //SYSIN DD * OPTION COPY INREC IFTHEN=(WHEN=INIT, PARSE=(%01=(ABSPOS=13,ENDBEFR=C'.G',FIXLEN=10)), BUILD=(1:C...
by simo78
Sun Sep 28, 2014 6:53 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Sort help
Replies: 4
Views: 5133

Sort help

Hello together, my input file is a gds (ABC.ZTUIDR.CNO113.G001V00) and I would like to get the following output XNO113_<DATE1>_<TIME1> for example XNO113_140926_180629. I tryed this //SORT   EXEC PGM=SORT                                                //SORTIN   DD   *                               ...
by simo78
Sun Apr 06, 2014 11:32 pm
Forum: TSO, CLIST & REXX
Topic: Regular expression with rexx
Replies: 4
Views: 8083

Regular expression with rexx

Hello together,

are there regex in rexx or something similar?
I need to validate email addresses with rexx and I don't know how.

Any help is appreciated.
by simo78
Wed Mar 26, 2014 11:48 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Reformat DATE
Replies: 7
Views: 8439

Reformat DATE

Dear all, is it possibile to reformat this date if my input is DATE1-1 or DATE2-1? my input file 1 is: 20140228 my input file 2 is: 201402 and my output 1 and 2 should be: This report is from: 02-2014 or better: This report is from: February 2014 Can someone give me a hint,please? Thanks in advance ...
by simo78
Sun Feb 02, 2014 2:40 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Search string then submit JOB
Replies: 6
Views: 7824

Search string then submit JOB

Hi DikDude,

sorry my dsn should look like this

Code: Select all

//*JOB1
/mydir/path1/file1.txt;MY.LIBRARY&#40;MYJOB1&#41;
//*JOB2
/mydir/path1/file2.txt;MY.OTHER.LIBRARY&#40;MYJOB2&#41;
//*JOB3
/mydir/path2/file3.txt;MY.LIBRARY&#40;MYJOB3&#41;
by simo78
Sat Feb 01, 2014 8:06 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Search string then submit JOB
Replies: 6
Views: 7824

Search string then submit JOB

Hi, I've a PDS with the following content: //*JOB1 /mydir/path1/file1.txt;MYJOB1 //*JOB2 /mydir/path1/file2.txt;MYJOB2 //*JOB3 /mydir/path2/file3.txt;MYJOB3 How can I submit i.e. MYJOB2 if the string I've to search is "/mydir/path1/file2.txt"? With REXX I would be able to do this but probably it's b...
by simo78
Wed Jan 15, 2014 5:13 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: count backward
Replies: 6
Views: 7878

Hello Sureshpathi10,

it works perfect.

Thanks
by simo78
Thu Jan 09, 2014 3:33 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: count backward
Replies: 6
Views: 7878

count backward

Hello DikDude, sorry for the late answer but I was on holiday. Here you can find my code: //STEP1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD * file1.txt file2.txt file3.txt //SORTOUT DD SYSOUT=* //SYSIN DD * OPTION COPY INREC BUILD=(1,80,JFY=(SHIFT=LEFT, LEAD=(C'PUT ''mygdg'' ')&...
by simo78
Fri Dec 27, 2013 3:28 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: count backward
Replies: 6
Views: 7878

count backward

Dear all, my input file looks like this: file1.txt file2.txt file3.txt and I want the get the following output: PUT 'mygdg(0)' file3.txt PUT 'mygdg(-1)' file2.txt PUT 'mygdg(-2)' file1.txt With LEAD and TRAIL I'm able to create PUT 'mygdg' file1.txt PUT 'mygdg' file2.txt PUT 'mygdg' file3.txt but I ...
by simo78
Thu Jul 04, 2013 3:54 pm
Forum: TSO, CLIST & REXX
Topic: ISPF Macro: insert column
Replies: 1
Views: 2989

ISPF Macro: insert column

Hello together, which macro command should I use to insert an empty column between column 3 and 4 (see below)? before after ----+ ----+ orAA or AA esBB es BB CC CC DD DD eeDD ee DD thanks in advance for any advice.
by simo78
Wed Apr 17, 2013 12:28 pm
Forum: TSO, CLIST & REXX
Topic: REXX Concatenation
Replies: 4
Views: 6438

Sorry, you're right. I just want to concatenate the variable "nr" and the variable "text" in a new variable called myvar + <nr> but I got this error IKJ56621I INVALID COMMAND NAME SYNTAX 4 *-* "MYVAR"!!nr = nr!!"-"!!text +++ RC(-3) +++ MYVAR001
by simo78
Tue Apr 16, 2013 1:31 pm
Forum: TSO, CLIST & REXX
Topic: REXX Concatenation
Replies: 4
Views: 6438

REXX Concatenation

Hello together!

Could someone help me with this problem,please?

Code: Select all

/*rexx*/                           
nr = "001"                         
text = "mytext/1 aa>44"            
"MYVAR"!!nr = nr!!"-"!!text        
say MYVAR001
Thanks
by simo78
Tue Nov 13, 2012 4:29 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: DFSORT: get the Yesterday date
Replies: 6
Views: 8194

DFSORT: get the Yesterday date

THANKS A LOT!
by simo78
Tue Nov 13, 2012 1:15 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: DFSORT: get the Yesterday date
Replies: 6
Views: 8194

DFSORT: get the Yesterday date

Hi again, I looked at the Smart Tricks, seached and I got what I want: //STEP0 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD * DUMMY //SORTOUT DD DSN=&&TMP1,DISP=(,PASS) //SYSIN DD * OUTREC BUILD=(DATE1) //* //STEP1 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=*.STEP0.SORTOUT,...
by simo78
Fri Nov 09, 2012 5:26 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: DFSORT: get the Yesterday date
Replies: 6
Views: 8194

Hi William,

sorry I meant:

DD.MM.YY