View previous topic :: View next topic
|
Author |
Message |
tanguduk Warnings : 1 New User
Joined: 29 Aug 2005 Posts: 14
|
|
|
|
Code: |
MVC 0(1,RZ),=C' '
MVC 1(79,RZ),0(RZ)
MVC 1(7,RZ),=C'HDELETE'
MVC 9(1,RZ),=X'7D'
MVC 10(45,RZ),0(RX)
LA RV,10(RZ)
CLC 0(1,RV),=C' '
BE 20
LA RV,1(RV)
B 10
MVC 0(1,RV),=X'7D'
BAL SYSUT2(RZ)
B DELETE(RX)
END |
|
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
Please do not use the urgent term,
why not ask the person who wrote/provided You the code snippet ?? |
|
Back to top |
|
|
tanguduk Warnings : 1 New User
Joined: 29 Aug 2005 Posts: 14
|
|
|
|
As we are not able to find out I posted in this forum.
Regards
Kiran tangudu |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
the code snippet is building a 80 chars buffer containing an hdelete command
is that part of code You are using already ?
is it working the way You want
are You trying to modify it ?
it' s a new tool You are trying to write ?
the answer/suggestion might be different depending on the environment
anyway I guess You made some typing errors, the code snippet as shown
will not even compile cleanly |
|
Back to top |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006 Posts: 3156 Location: Tucson AZ
|
|
|
|
Where are the labels '10' & '20'?
FWIW, I would have used an MVI for that first MVC....... |
|
Back to top |
|
|
Bill Dennis
Active Member
Joined: 17 Aug 2007 Posts: 562 Location: Iowa, USA
|
|
|
|
Your are moving 45 bytes (dataset name?) into the area after the word HDELETE. Then looping to find the end of the name (a space) and putting the ending quote (') there before falling through BAL. |
|
Back to top |
|
|
tanguduk Warnings : 1 New User
Joined: 29 Aug 2005 Posts: 14
|
|
|
|
Hi All.
Thank u very much for your help.
Regards
Kiran |
|
Back to top |
|
|
|