Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Masking in Easytrieve

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products
View previous topic :: :: View next topic  
Author Message
kiranbhargava18

New User


Joined: 21 Apr 2009
Posts: 10
Location: Hyderabad

PostPosted: Tue Sep 08, 2009 7:46 pm    Post subject: Masking in Easytrieve
Reply with quote

I am trying to mask a field in Easytrieve and write the field to an output file. The field is not getting masked and is appearing as same in the input file. But, while I am displaying the field, the mask is visible in the sysout.
Please let me know where I am going wrong and also if we can mask the characters and write them to a File (not report)
Back to top
View user's profile Send private message

alan_blore

New User


Joined: 01 Aug 2007
Posts: 50
Location: Hosur

PostPosted: Wed Sep 09, 2009 6:56 pm    Post subject: Masking in Easytrieve
Reply with quote

Hi Kiran,

It will be better if you post the Code where you do the exact operation along with their data defintion.

One thing you can do while masking for easytrieve is:

1. Say you define the field in File - like

Code:

OUT-PRC  28    5 N MASK '----9'


2. You need to display temp variables where the temp movement will be done before final move like
Code:

 *                                                                   
 WS-COST                           W   7   N   2  MASK ('ZZZZZ.ZZ')   
    WS-COST-A      WS-COST             7   A                         
                                                                     
 WS-COST-EDIT                       W   7   N  2   MASK('ZZZZZ.ZZ')   
    WS-COST-EM     WS-COST-EDIT         5   A                         
    WS-COST-ED     WS-COST-EDIT    +5   2   A                         
                                                                     
 WS-COST-FMT                        W   8   A                         
    WS-COST-M      WS-COST-FMT          5   A                         
    WS-COST-P      WS-COST-FMT     +5   1   A  VALUE '.'             
    WS-COST-D      WS-COST-FMT     +6   2   A                         
*                                                                     


3. Then in the program you can have the code like:

Code:

WS-COST                = WS-PRC
WS-COST-EDIT           = WS-COST         
WS-COST-M              = WS-COST-EM       
WS-COST-D              = WS-COST-ED       
OUT-PRC  = WS-COST-FMT     


This is more similar to the COBOL logic we have for Display variables - 9(9).99

Thanks
alan
B'lore
Back to top
View user's profile Send private message
kiranbhargava18

New User


Joined: 21 Apr 2009
Posts: 10
Location: Hyderabad

PostPosted: Thu Sep 10, 2009 2:48 pm    Post subject: --
Reply with quote

Hi Alan,

This is what I am exactly trying to do but it is not working.

When I display the variable (be it Working storage or be it the output file variables) I can see the masked value in the SYSOUT, but, when I write the same to the file, the masked value does not appear.

Thanks for the reply.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Thu Sep 10, 2009 7:48 pm    Post subject:
Reply with quote

Hello,

For many releases, Easytrieve wrote masked values to reports but not files. . .

I don't have the current release available, so i can't run any tests.

If your attempt at using the posted example is not working, suggest you post your variables and procedural code and maybe we can see what is causing the problem.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7315

PostPosted: Sun Mar 17, 2013 6:40 am    Post subject: Reply to: Masking in Easytrieve
Reply with quote

An example PRINTER EXIT is now here.

This will allow you to use a MASK to edit a field, and then put that field on an output file.
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 -> CA Products All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts UNIT=AFF for Easytrieve code gandikk JCL & VSAM 7 Wed Jul 12, 2017 11:42 pm
No new posts READ A PACKED "NEGATIVE" FI... jdesouza CA Products 3 Tue May 02, 2017 11:43 pm
No new posts Easytrieve report shalem CA Products 4 Sun Feb 26, 2017 9:08 am
No new posts Easytrieve - Report writing - Only 1 ... Abhi Nature CA Products 2 Wed Sep 14, 2016 11:40 am
No new posts Masking Db2 data kishpra DB2 3 Fri Sep 02, 2016 9:23 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us