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
 
Replace all low values in certain fields by SPACES

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
ojdiaz

New User


Joined: 19 Nov 2008
Posts: 90
Location: Spain

PostPosted: Thu Feb 04, 2010 6:17 pm    Post subject: Replace all low values in certain fields by SPACES
Reply with quote

Hello there. I have to replace all low values in certain fields after an outrec operation and I though on using the Change operator to change all X'00' bytes by X'40' but I can't seem to be able to make it work

In particular I have this input file:

Positions 1 through 523, some non important data
Positions 524, 300 bytes, some variable length data in which there can be low values after the relevant data. As an example:

The 300 Bytes fields:

Code:

7...............................................................................
8...............................................................................
9...............................................................................
10..............................................................................
11..............................................................................
12..............................................................................
13..............................................................................
14..............................................................................
15..............................................................................
16..............................................................................
17..............................................................................
18..............................................................................
19..............................................................................
20..............................................................................
21..............................................................................
22..............................................................................
23..............................................................................
24..............................................................................
25..............................................................................
26..............................................................................
27..............................................................................
28..............................................................................
29..............................................................................
30..............................................................................
31..............................................................................
32..............................................................................
2010-02-28......................................................................
2010-03-31......................................................................
2010-04-30......................................................................
2010-05-31......................................................................
2010-06-30......................................................................
2010-07-31......................................................................
2010-08-31......................................................................
2010-09-30......................................................................


Position 824 onwards, the rest of the record

I have this step coded, but I keep getting errors on it.

Code:
//PASO055  EXEC PGM=SORT                                       
//SORTIN   DD DSN=MDDS.CU.BAT1SBAS.DCD0.BD01001.D100203,DISP=SHR
//SORTOUT  DD DSN=MDDS.CU.BAT1SBAS.DCD0.BD01004.DTEST,         
//            DISP=(NEW,CATLG,DELETE),                         
//            DCB=(RECFM=FB,BLKSIZE=0),                         
//            SPACE=(CYL,(100,10),RLSE),UNIT=SYSDA             
//SYSOUT   DD SYSOUT=*                                         
//SYSPRINT DD SYSOUT=*                                         
//SYSIN    DD *                                                 
  SORT FIELDS=COPY                                             
   OUTREC FIELDS=(1,521,                                       
                  524,300,CHANGE=(1,X'00',X'40'),               
                  824,6,PD,M10,LENGTH=10,                       
                  830,6,PD,M10,LENGTH=10,                       
                  836,10,                                       
                  846,6,PD,M10,LENGTH=10,                       
                  852,7,PD,M10,LENGTH=10,                       
                  859,3)                                       



The output refers to sintax code errors, but i can't find them...

Code:
ICE143I 0 BLOCKSET     COPY  TECHNIQUE SELECTED                                 
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 13:13 ON THU FEB
            SORT FIELDS=COPY                                                   
             OUTREC FIELDS=(1,521,                                             
                            524,300,CHANGE=(1,X'00',X'40'),                     
                                     $                                         
ICE111A E REFORMATTING FIELD ERROR                                             
                            824,6,PD,M10,LENGTH=10,                             
                            $                                                   
ICE007A 0 SYNTAX ERROR                                                         
                            830,6,PD,M10,LENGTH=10,                             
                            $                                                   
ICE007A 0 SYNTAX ERROR                                                         
                            836,10,                                             
                            $                                                   
ICE007A 0 SYNTAX ERROR                                                         
                            846,6,PD,M10,LENGTH=10,                             
                            $                                                   
ICE007A 0 SYNTAX ERROR                                                         
                            852,7,PD,M10,LENGTH=10,                             
                            $                                                   
ICE007A 0 SYNTAX ERROR                                                         
                            859,3)                                             
                            $                                                   
ICE007A 0 SYNTAX ERROR                                                         
                                                                               
                                                                               
ICE751I 0 C5-K90013 C6-K90013 C7-K90000 C8-K42135 E7-K44563                     
ICE052I 3 END OF DFSORT                                                         


Any thoughs about it? Is there any way to change it? I lookd through the errors document for the code ICE111A but i can't quite get exactly what is going on

Thanks in advance

Best regards

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

Escapa

Senior Member


Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA

PostPosted: Thu Feb 04, 2010 6:48 pm    Post subject:
Reply with quote

Hi,
Check these two examples..
Second one has findrep example too
http://www.ibmmainframes.com/viewtopic.php?t=15848&highlight=low+values+space+replace
http://www.ibmmainframes.com/viewtopic.php?t=3053&highlight=low+values+space+replace
Back to top
View user's profile Send private message
ojdiaz

New User


Joined: 19 Nov 2008
Posts: 90
Location: Spain

PostPosted: Thu Feb 04, 2010 8:55 pm    Post subject:
Reply with quote

Hello there! thanks for the reply!

I was able to solve reading this Post

In the end, i used this sort card:

Code:
  SORT FIELDS=COPY                               
    INREC FIELDS=(1,521,                         
                  524,300,                       
                  824,6,PD,M10,LENGTH=10,       
                  830,6,PD,M10,LENGTH=10,       
                  836,10,                       
                  846,6,PD,M10,LENGTH=10,       
                  852,7,PD,M10,LENGTH=10,       
                  859,3)                         
    OUTREC FINDREP=(IN=(X'00',X'4B'),OUT=(X'40'))


It worked perfectly! thanks!
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Fri Feb 05, 2010 11:20 pm    Post subject:
Reply with quote

Code:

            OUTREC FIELDS=(1,521,                                             
                            524,300,CHANGE=(1,X'00',X'40'),                     
                                     $                                         
ICE111A E REFORMATTING FIELD ERROR           


FYI, the syntax error was issued because of the length of 300. For p,m,CHANGE=(...) the limit for m is 64.
Back to top
View user's profile Send private message
ojdiaz

New User


Joined: 19 Nov 2008
Posts: 90
Location: Spain

PostPosted: Thu Feb 18, 2010 2:22 pm    Post subject:
Reply with quote

Frank Yaeger wrote:
Code:

            OUTREC FIELDS=(1,521,                                             
                            524,300,CHANGE=(1,X'00',X'40'),                     
                                     $                                         
ICE111A E REFORMATTING FIELD ERROR           


FYI, the syntax error was issued because of the length of 300. For p,m,CHANGE=(...) the limit for m is 64.


Ahhh... thats good to know... As usual, thanks a lot for your feedback Frank

Best Regards!

Oliver
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 -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Subtract the ZD fields to provide neg... Balaryan DFSORT/ICETOOL 4 Wed Oct 11, 2017 10:51 pm
No new posts Extend the decimal values in DIVISION Balaryan DFSORT/ICETOOL 3 Thu Oct 05, 2017 4:05 pm
No new posts Addition of two records on 2 fields amar143 SYNCSORT 8 Tue Oct 03, 2017 11:14 am
No new posts Working with hex values in Filemanage... Emile Straker IBM Tools 0 Tue Sep 12, 2017 1:42 am
No new posts DB2 NULL Values display V S Amarendra Reddy DB2 3 Thu Sep 07, 2017 6:59 pm

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