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
 

 

update some records using fileaid in jcl

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Compuware & Other Tools
View previous topic :: :: View next topic  
Author Message
shamsundar_mk

New User


Joined: 18 May 2007
Posts: 30
Location: CHENNAI

PostPosted: Mon Oct 08, 2007 1:48 pm    Post subject: update some records using fileaid in jcl
Reply with quote

Hi,

i have an query.. please help me..
there are certain block as
xxx-726-00 - 12345678... (100 characters)
xxx-726-01 - 23456789..
.
.
.
xxx-726-06 -> 1200
.
.
xxx-726-0A -> 3643567457..
for each xxx-726-00 there are 10 sub-blocks.. with 10 character
as follows.
xxx-726-00-01->123456790
.
xxx-726-06-01->1200
.
.
.
xxx-726-10-01->231465346 (block value(hexa decimal) has converted into decimal in sub-blocks )


i have an jcl using fileaid..
i want to update the record xxx-726-06 -1200. if xxx-726-06 =1200 then xxx-726-0A -> 3643567457.. should be updated by xxx-726-10-01 -> 8001000000. then the remaining subblocks such as xxx-726-10-02,xxx-726-10-03,xxx-726-10-04 are changed to 000000000.

please help me...
thanks..
Back to top
View user's profile Send private message

murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1439
Location: Bangalore,India

PostPosted: Mon Oct 08, 2007 2:28 pm    Post subject:
Reply with quote

Shanmuga Sundaram,

Could you please IP data properly (Use CODE tag to get the alignment). And also explain your problem clearly (req may be clear to you, but not to us).

Also let us know, you wanted to use FA only or someother utility is OK.
Back to top
View user's profile Send private message
shamsundar_mk

New User


Joined: 18 May 2007
Posts: 30
Location: CHENNAI

PostPosted: Thu Oct 11, 2007 12:16 pm    Post subject: Reply to: update some records using fileaid in jcl
Reply with quote

Here is the input record .
Each block can hold up to max of 50 bytes(100 characters), where 00,01,02,03,04,05,06,07,08,09,0A===> block number.

CFG_726_WB_00 123456789012345678901234567890
CFG_726_WB_01 12324567500000000000
CFG_726_WB_02 25748749590079997997
CFG_726_WB_03 65758697054345756886
CFG_726_WB_04 12672589638907490670
CFG_726_WB_05 78897896389690069906
CFG_726_WB_06 1200
CFG_726_WB_07 12768469283679237590
CFG_726_WB_08 12769123472875089325
CFG_726_WB_09 1234567890
CFG_726_WB_0A 1234567890

Requirment:

If CFG_726_WB_06 data equals 1200, then CFG_726_WB_0A should be changed to 8001000000


Fileaid For the Requirment:

//PRGSTEPA EXEC PGM=FILEAID
//SYSPRINT DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//SYSTOTAL DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//DD01 DD DSN=XXXXXXX.TEST.XXX.INPUT.DATA,
// DISP=SHR
//DD01O DD DSN=XXXXXXX.XXX.OUT1,
// DISP=(,CATLG,DELETE),
// DCB=(RECFM=FB,LRECL=264,BLKSIZE=27984),
// SPACE=(CYL,(10,10),RLSE)
//SYSIN DD *
$$DD01 COPYALL IF=(10,EQ,C'8'),AND=(11,EQ,C'L'),
AND=(118,EQ,C'CFG_726_WB_06'),AND=(148,EQ,C'1200'),
IF=(118,EQ,C'CFG_726_WB_0A'),REPL=(148,C'8001000000')
/*

Where CFG_726_WB_06 begins at the position 118 and its data '1200' begins at position 148,
CFG_726_WB_0A begins at the position 118 and its begins at position 148



When I submitted the job in the job was excuited with MAX=000 but data has not changed between
CFG_726_WB_06 and CFG_726_WB_0A


Please let me know whether the sysyin that I wrote was correct for File aid ... thanks...
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 -> Compuware & Other Tools All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Fileaid 2 commands instream work. In ... descann Compuware & Other Tools 2 Tue May 16, 2017 3:31 pm
No new posts Fileaid Update Replace with null string descann Compuware & Other Tools 4 Mon May 15, 2017 3:00 pm
No new posts Check if any Detail records and extra... V S Amarendra Reddy SYNCSORT 19 Mon May 08, 2017 8:54 pm
This topic is locked: you cannot edit posts or make replies. Merge two files and update Trailer re... Yashashri JCL & VSAM 1 Thu May 04, 2017 12:54 pm
No new posts IMS DB-How to update a record (a sing... Nic Clouston IMS DB/DC 9 Thu Mar 09, 2017 4:38 pm


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