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
 

 

can any one help meto draw this code ?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler
View previous topic :: :: View next topic  
Author Message
rskumar

New User


Joined: 21 Nov 2005
Posts: 35
Location: chennai

PostPosted: Thu Aug 31, 2006 12:29 pm    Post subject: can any one help meto draw this code ?
Reply with quote

1) Must read input data from a file. The records will be in the below structure format



01 Input file,

02 Field name1,

02 Field Value.

02 Field name2,

02 Field Value.

02 Field name3,

02 Field Value.

02 Field name4,

02 Field Value.





2) Mask the contents of the Field Value(1-4) as below

a. All Upper Case Letters must be replaced with Upper Case Alphabets starting from A

Eg: RAMMAOO------- ABCDEFGHI

b. All Lower Case Letters must be replaced with Lower Case Alphabets starting from a

Eg: rammaakd ------- abcdefghi

c. All Numeric values must be replaced with numbers starting from 0

Eg: 23451234 ------- 01234567



d) Special characters must be retained as given in input



3) Write the masked data to the output file



Example Conversions



1) ramaaaa*udjduhdduh*shdhndhx*234121 Should be masked to Abcdefghi*Jklmnopqrs*Tuvwxyzab*123456
Back to top
View user's profile Send private message

Murali krishna

New User


Joined: 17 Feb 2006
Posts: 9
Location: chennai

PostPosted: Tue Sep 19, 2006 5:06 pm    Post subject:
Reply with quote

Hi Kumar,
First you need toc chk is it possible to have a combination of lower and upper letter for field names.If not you can adopt the following procedure.

Declare a structure of above format.
read the input file into the Structure.For all the field names you can find the starting letter using SUBSTR option.if it is lower then find the length of the string and replace with lower case letters.

ex:- let us take the masking for 'ramaaaa'
SUBSTR(FIELDNAME1,1,1) will be 'r' then
Length(Fieldname1) will be '7' so you write 'abcdefg'

like this you can do for reaminig field names as well as 'field values'
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 -> PL/I & Assembler All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to Capture the Max return code of... anilkumar922 All Other Mainframe Topics 0 Thu Jan 12, 2017 12:02 pm
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm
No new posts PL/I code tuning/Performance improvement Virendra Shambharkar PL/I & Assembler 4 Mon Dec 05, 2016 11:57 am
No new posts What is the code in CLIST to enable t... jackzhang75 CLIST & REXX 1 Fri Dec 02, 2016 3:02 am
No new posts IDEAL - Code Retrieval yugendran CA Products 0 Fri Nov 25, 2016 3:27 pm


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