|
|
| Author |
Message |
kratos86
New User
Joined: 17 Mar 2008
Posts: 16
Location: Anna NGR
|
|
|
|
it is a last step inside the job
XXFNWPDSUT PROC PTR=C,DMP=I,ABEND=ABEND
*** .. * INVOKE WAAPDSUT
*** .. * //FNWPDSUT.SYSUT1 DD --- DEFINE PRIMARY INPUT FILE
*** .. * //FNWPDSUT.SYSUT2 DD --- DEFINE PRIMARY OUTPUT FILE
*** .. * //FNWPDSUT.SYSUT1A DD --- DEFINE SECONDARY INPUT FILE
*** .. * //FNWPDSUT.SYSUTN DD --- DEFINE SECONDARY OUTPUT FILES
*** .. * --- N = 3, 4, OR 5
*** .. * //FNWPDSUT.SYSIN DD --- DEFINE CONTROL STATEMENT INPUT
&&FNWPDSUT EXEC PGM=FNWPDSUT,PARM='&ABEND'
&&SYSPRINT DD SYSOUT=&PTR,DCB=BLKSIZE=3146
&&SYSUDUMP DD SYSOUT=&DMP,DCB=BLKSIZE=3146
X@SYSUT1 DD DSN=&HLQWDD..DDIJ075.FINFLAG,DISP=SHR
X@SYSUT2 DD DSN=&HLQWDD..DDIJ075.FINFLAG,DISP=(OLD,KEEP)
X@SYSIN DD DSN=PARMLIB(DD5SFLAG),DISP=SHR
the control card is
MVC 0(1,RX),=C'1'
BAL SYSUT2(RX)
B DELETE
B EOF
END
can any one tell me how the control card is used here for setting the flag
Criteria for setting the flag is
only when the job runs well the flag is set to 1 . if it abended set to 0 |
|
| Back to top |
|
 |
References
|
 Posted: Wed May 21, 2008 11:00 am Post subject: Re: how the flag is set from control card |
|
|
|
|
enrico-sorichetti
Global Moderator
Joined: 14 Mar 2007
Posts: 2560
Location: italy
|
|
|
|
| Code: |
MVC 0(1,RX),=C'1'
BAL SYSUT2(RX)
B DELETE
B EOF
END
|
NO! we cannot tell anything..
what You posted and I quoted is just a piece of assembler
why not ask Your support or your peers
even a clear word description of the assembler instruction
will not help because there is an unreachable statement
but it could be that the subroutine invoke by "BAL SYSUT2(RX)
plays some tricks by returning to different offsets
but
1 - move 1 to offset 0 of something addressed by register RX
2 -invoke a subroutine whose address is at SYSUT2 offset from RX
3 branch to the delete label
4 - branch to the eof label |
|
| Back to top |
|
|
dick scherrer
Global Moderator
Joined: 23 Nov 2006
Posts: 7505
Location: 221 B Baker St
|
|
|
|
Hello,
I believe you need to review the documentation for the FNWPDSUT utility. What you have posted is incomplete.
This is an "assembler" instruction that moves the literal 1 (rather than a zero or some other value). |
|
| Back to top |
|
|
ironmike
New User
Joined: 07 Aug 2005
Posts: 37
|
|
|
|
The utility at the heart of what you are doing is the WAAPDSUT utility, which EDS wrote and uses.
The control cards are pseudo-assembler in format. The set you show will place the EBCDIC character '1' in the first byte of each record read from the SYSUT1 DD statement, then write each modified record out to the SYSUT2 DD. The output file is the SYSUT2 DD. This will continue until end of file is reached on the SYSUT1 file.
The 'FN' mods in the JCL may be local to you, they are not part of the original WAAPDSUT utility language/JCL. |
|
| Back to top |
|
|
kratos86
New User
Joined: 17 Mar 2008
Posts: 16
Location: Anna NGR
|
|
|
|
| Can any one tell me where can i get more information abt waapdsut utility. bcoz wen i searched in net hardly it didnt give any opt info to understand abt waap. |
|
| Back to top |
|
|
kratos86
New User
Joined: 17 Mar 2008
Posts: 16
Location: Anna NGR
|
|
|
|
| thank u for the information |
|
| Back to top |
|
|
dick scherrer
Global Moderator
Joined: 23 Nov 2006
Posts: 7505
Location: 221 B Baker St
|
|
|
|
Hello,
You probably need to contact EDS.
They may or may not have what you are looking for.
It would also be a good idea to find people who have worked on your system for years and gather what info you can from them. What runs on your system was probably customized for that system. |
|
| Back to top |
|
|
enrico-sorichetti
Global Moderator
Joined: 14 Mar 2007
Posts: 2560
Location: italy
|
|
|
|
| Quote: |
| ... where can i get more information abt waapdsut utility ... |
If Your organization has a legal right to use it, the the documentation should be available inside Your shop
ask Your peers or a support group inside Your organization |
|
| Back to top |
|
|
|
|
