|
|
| Author |
Message |
tanguduk
Warnings : 1
New User
Joined: 29 Aug 2005
Posts: 10
|
|
|
|
| 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 |
|
 |
References
|
|
 |
enrico-sorichetti
Global Moderator
Joined: 14 Mar 2007
Posts: 3047
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: 10
|
|
|
|
As we are not able to find out I posted in this forum.
Regards
Kiran tangudu |
|
| Back to top |
|
|
enrico-sorichetti
Global Moderator
Joined: 14 Mar 2007
Posts: 3047
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: 2978
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
Senior Member
Joined: 17 Aug 2007
Posts: 312
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: 10
|
|
|
|
Hi All.
Thank u very much for your help.
Regards
Kiran |
|
| Back to top |
|
|
|
|
