IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Masking in easytrieve


IBM Mainframe Forums -> CA Products
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
srinivasarao.gunja

New User


Joined: 30 Jul 2014
Posts: 3
Location: india

PostPosted: Mon Aug 11, 2014 7:49 pm
Reply with quote

Can any one suggest me how can I mask

Input var:
Code:
SEQNUM            W     3 N MASK ('ZZZ')


Output var:
Code:
OUT-SEQID       111     10 A


i am getting output as
Code:
001
002
003


But i need it in this fashion
Code:
  1
  2
  3


Thanks in advance...

Code'd
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7310
Location: Inside the Matrix

PostPosted: Mon Aug 11, 2014 8:10 pm
Reply with quote

A simple search or browse of the forum, or a simple read of the manual, would indicate that MASKs are only processed when data is output to a PRINTER file. So, from DISPLAY or PRINT statements. Not from PUT, or WRITE.

There is a file-exit here, kindly coded and tested by Chandan Inst, but you case is too simple even for that.

Redefine the field, twice. Firstly, first two bytes, secondly, first byte. Test first two bytes for zero, if true set to space. Else test first byte, if true set to space, else leave it alone.
Back to top
View user's profile Send private message
seagull

New User


Joined: 28 May 2007
Posts: 24
Location: Dublin

PostPosted: Wed Aug 20, 2014 10:01 pm
Reply with quote

Why would you put a mask on an input field? It doesn't affect what is moved.
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7310
Location: Inside the Matrix

PostPosted: Wed Aug 20, 2014 10:44 pm
Reply with quote

It is very common to have MASKs on input fields. The MASK only operates on DISPLAY or PRINT. Where do you think the MASKs would best be?
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CA Products

 


Similar Topics
Topic Forum Replies
No new posts Easytrieve EZABX007 with error code 0... CA Products 7
No new posts masking data with HPU DB2 0
No new posts Converting SAS code to Cobol or Easyt... All Other Mainframe Topics 6
No new posts Easytrieve with SQL CA Products 1
No new posts UNIT=AFF for Easytrieve code JCL & VSAM 7
Search our Forums:

Back to Top