IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

WAAPLPDS usage


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
preethisworld

New User


Joined: 23 Nov 2011
Posts: 3
Location: India

PostPosted: Wed Nov 23, 2011 11:34 am
Reply with quote

Hi,

Could someone please tell me about WAAPLPDS utility. I searched in Google but didnt turn up much information.. It would be really helpful if someone give me an idea abt this utility

Thanks,
Preethi
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Wed Nov 23, 2011 12:01 pm
Reply with quote

Hello and welcome to the forum,

Suggest you try the Forum SEARCH (blue bar near the top of the page).

There ae several topis that may have what you want.
Back to top
View user's profile Send private message
kratos86

Active User


Joined: 17 Mar 2008
Posts: 148
Location: Anna NGR

PostPosted: Wed Nov 23, 2011 12:06 pm
Reply with quote

I am not sure about the name you mentioned (WAAPLPDS Utility), But i believe it is this utility name WAAPDSUT (WAP D'SOOT) an EDS system software. EDS discontinued the support of this utility. You will not find any material about this utility because of copyright.

This utility can handle Assembly code as card input.
Back to top
View user's profile Send private message
preethisworld

New User


Joined: 23 Nov 2011
Posts: 3
Location: India

PostPosted: Wed Nov 23, 2011 12:17 pm
Reply with quote

Hi Dick,

Before posting the topic, i searched with WAAPLPDS utility.. but nothing turned up..

Kratos86,

WAAPDSUT is also an utility like LPDS which uses ASM code as i/p to it.. I could get the usage of DSUT but not LPDS:(
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Wed Nov 23, 2011 12:26 pm
Reply with quote

Hello,

Quote:
Before posting the topic, i searched with WAAPLPDS utility.. but nothing turned up..
Bummer - i misread the typo. . .

Probably need to get creative searching. Here as well as on the web.

If you post the JCL and Control Statements that actually work correctly, someone may recognise what is being run and provide a bit of clarification.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Wed Nov 23, 2011 2:05 pm
Reply with quote

the issue with the WAA stuff is that they were EDS <internal> use only tools
which were meant to be used only by EDS personnel involved in the contracts

for <strange>, but not so much, reasons the functions implemented thru the WAA stuff were <seldom> converted to proper <utilities> or user written programs
and the WAA tools were left at the customer' s location,

another reason was <full> outsourcing contracts not renewed, EDS giving back to the customer a properly running <application>

unfortunately without the docs

do not kill the messenger, I am just reporting what I was told

both explanations seem reasonable to me
Back to top
View user's profile Send private message
preethisworld

New User


Joined: 23 Nov 2011
Posts: 3
Location: India

PostPosted: Wed Nov 23, 2011 3:47 pm
Reply with quote

Hi All, Thanks Much for ur valuable suggestions!!!! I got to know the usage finally.. Since the name of the utility has WAAPLPDS icon_idea.gif i tried with PDS as input to the utility... and gave a sysout o/p... It will give us the members in that PDS, then tracks used, changed date and user id as a report.. icon_biggrin.gif it will give us member list report...
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Wed Nov 23, 2011 11:10 pm
Reply with quote

Good to hear you have what you want - thank you for letting us know icon_smile.gif

d
Back to top
View user's profile Send private message
Jeffrey Ranney

New User


Joined: 23 Dec 2010
Posts: 20
Location: USA

PostPosted: Sat Dec 03, 2011 1:33 am
Reply with quote

WAAPLPDS PDS MANIPULATION UTILITY
_____________________________________


Function

WAAPLPDS performs various operations on the directory of a PDS.

Description

The following is a summary of WAAPLPDS capabilities:

1. Lists one or more complete directories.

2. Lists specific members of one directory.

3. Adds or updates only the SSI level for either specific PDS members or an
entire PDS directory.

4. Adds or updates only the SSI date to be the current date for either
specific PDS members or an entire PDS directory.

5. Adds or updates the SSI field for specific members.

6. Scratches members of a PDS by SSI date.

7. Adds SSIs to members with invalid or missing SSIs or SSIs of binary
zeroes.

JCL

The following JCL is required to execute WAAPLPDS:

//STEPNAME EXEC PGM=WAAPLPDSÝ,PARM='parameters'¨
//SYSPRINT DD Report file.
Ý//SYSUTnnn DD Input file. ¨
Ý One or a series of PDSs that are ¨
Ý to be listed. Each ddname must ¨
Ý begin with the characters SYSUT ¨
Ý and the last three characters ¨
Ý are variable. Data set with ¨
Ý largest block size must be listed ¨
Ý first. ¨
Ý//SYSUT2 DD Input file. ¨
Ý Describes the PDS that is to be ¨
Ý used when adding or updating ¨
Ý the SSI or when using the scratch ¨
Ý function. ¨
Ý//SYSIN DD Input file. ¨
Ý Describes an input data set con- ¨
Ý taining the required control ¨
Ý cards. ¨


The following table lists the DCB attributes for the two output ddnames. The
attributes are coded within WAAPLPDS and cannot be overridden in the JCL.

+------------------+------------------+------------------+------------------+
|DD NAME | RECFM | LRECL | BLKSIZE |
+------------------+------------------+------------------+------------------+
|SYSIN | FB | 80 | |
+------------------+------------------+------------------+------------------+
|SYSPRINT | FBA | 80 | 6118 |
+------------------+------------------+------------------+------------------+


Control

1. List one or more complete directories. No parameters or control cards
are required.

2. List specific members of one directory:

a. PARM=MEMB is required.

b. Control statement formats:

1) *ALL
2) MEMBERSET1,MEMBERSET2,...,MEMBERSETN
3) -MEMBERSET1,MEMBERSET2,...,MEMBERSETN
4) M**B*R,....

For each control card format, data must begin in card column 1 and is
terminated by the first blank. Data may be present only in columns 1
through 71. Column 72 must be blank. Columns 73 through 80 are not
edited.

If no statements or only exclude (FORMAT 3) statements are received,
an error condition exists and no data is processed.

FORMAT 1
*ALL in columns 1 through 4. If this statement is present, it
must be the first and only statement in the stream. All
members will be processed.

FORMAT 2
This card represents inclusive ranges of members to be
processed. The card consists of a series of MEMBERSETs
separated by commas. An individual MEMBERSET may take either
of the two following formats:

1) Individual member name, from one to eight characters.

2) Ranges of member names: NAME1-NAME2. The names are from
one to eight characters long and are separated by a dash.
All names in the directory which are in collating sequence
between name 1 and name 2, inclusive, are considered in the
range.

FORMAT 3
This card cannot be used alone. It represents ranges of
______________________________
members to be excluded from processing. The card consists of a
dash in column 1 followed by a series of MEMBERSETs separated
by commas. The format of the MEMBERSETs is described under
format 2.

FORMAT 4
This card allows the selection of a generic range of names. In
this example, only members with an M in position 1, a B in
position 4, and an R in position 6 of the member are selected.
Coding an asterisk in a certain position indicates any
character is acceptable in that position.

3. Add or update only the SSI level for either specific PDS members or an
entire directory.

a. PARM='SSIL=LL' is required. LL indicates the update SSI level.


b. Control card formats:

1) MEMBERNM

2) *ALL

For each control card format, data must begin in column 1 and is
terminated by the first blank. Data must be left justified.

FORMAT 1
This control card contains the member name for a specific
member to be updated.

The member name is from one to eight characters long.

FORMAT 2
*ALL in columns 1 through 4. When this statement is present,
it must be the first and only statement in the stream. All
members are processed.

4. Add or update only the SSI date to the current date for either specific
PDS members or an entire PDS directory.

a. PARM=SSIZ is required.

b. Control card formats:

1) MEMBERNM

2) *ALL

For each control card format, data must begin in card column 1 and is
terminated by the first blank. Data must be left justified.

FORMAT 1
This control card contains the member name for a specific
member to be updated.

The member name is from one to eight characters long.

FORMAT 2
*ALL in columns 1 through 4. When this statement is present,
it must be the first and only statement in the stream. All
members are processed.

NOTE: Before D882, WAAPLPDS did not verify whether the date passed to it
was valid. Dates are now rejected if the day or month does not
fall within a valid range or if the date fails a numeric check.

5. Add or update the SSI field for specific members.

a. PARM=SSIU is required.

b. The SYSIN control card format is member name left justified in
columns 1 through 8. Columns 9 through 16 is the SSI. A maximum of
75 control cards is allowed. They may be in any sequence.

6. Scratch members of a PDS by SSI date.

The scratch function requires at least one parameter and accepts the
following combinations:


PARM= any combination of E, M, or I.

PARM=nnnn followed by any combination of E, M, or I.

NNNN Is a four-digit number specifying the number of days elapsed time
before a member is scratched, assuming it has a valid SSI format.
The default is 31 days.

E Indicates a purge is done on members with an expired SSI date. P
can be substituted for E to include the expired SSI date and to
scratch any post dated numbers.

I Indicates members which have invalid SSI formats are scratched.

M Indicates members which are missing SSI fields are scratched.

None of the parameters should be separated by commas.

7. Add a programmer-supplied or current date to the SSI field to any member
having no SSI, an SSI of binary zeroes, or an invalid SSI.

a. PARM='ADDIT' inserts current date.

b. PARM='ADDIT,032189' inserts 032189 to the SSI level of all qualified
members of the PDS.

c. No control cards are needed.

d. The maximum number of entries it can update on one execution is 75.

At the end of all directory listings from the update and purge
functions, the program also indicates the number of used and unused
directory blocks.

WTOR

PURGE WOULD EXCEED 700 MEMBERS. REPLY CONT TO PURGE 700 MEMBERS, OR REPLY
STOP TO TERMINATE RUN.

If more than 700 members are eligible to be purged on one directory, WAAPLPDS
waits on a reply from this WTOR. A reply of CONT allows the first 700
members to be scratched and go to EOJ. A reply of STOP scratches nothing and
goes to EOJ with an ABEND U1002.

Abends

U0250 Decompression error. See WAASBLD.
U0251 Decompression error. See WAASBLD.
U1000 Error in read of VTOC.
U1001 Permanent I/O error in stow of member.
U1002 Termination of job after a reply of stop to WTOR message.
U1111 A WAAPLPDS or directory bug has been uncovered. Contact the local
software group or Corporate Software. This abend may be caused by
trying to stow a member with 26 or more halfwords of user data, or a
track number greater than 16620, or a record number greater than 95.
All of these conditions are considered suspect of errors.




Return Codes

0 Successful return.
4 Parameter is not valid.
8 Too many control cards (75 maximum).
12 SYSUT2 missing.
16 Unable to open PDS DCB.
20 Unable to open SYSIN DCB.
24 Control statement error. No directory processing done.
28 I/O error reading the directory.
32 Reserved.
36 Reserved.

Examples

1. This example lists the directories of the three PDSs on the SYSUT1,
SYSUT2, and SYSUT3 DD statements.

//JS10 EXEC PGM=WAAPLPDS
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD DSN=EDS00.WAA.SORLIB,DISP=SHR
//SYSUT2 DD DSN=EDS00.WAA.MODLIB,DISP=SHR
//SYSUT3 DD DSN=EDS00.WAA.OBJLIB,DISP=SHR
//

2. This example lists the directory information for modules beginning with
WAAP in the PDS.

//JS10 EXEC PGM=WAAPLPDS,PARM=MEMB
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD DSN=EDS00.WAA.MODLIB,DISP=SHR
//SYSIN DD *
WAAP-WAAP9999
//

3. This example lists the directory information for modules beginning with
WAAP in the PDS. (This does not include modules which begin with WAAP3).
___

//JS10 EXEC PGM=WAAPLPDS,PARM=MEMB
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD DSN=EDS00.WAA.MODLIB,DISP=SHR
//SYSIN DD *
WAAP-WAAP9999
-WAAP3000-WAAP3999
//


4. This example updates or adds SSI information to the two modules shown on
the control cards.

//JS10 EXEC PGM=WAAPLPDS,PARM=SSIU
//SYSPRINT DD SYSOUT=A
//SYSUT2 DD DSN=EDS00.WAA.MODLIB,DISP=SHR
//SYSIN DD *
WAAPSCAN10148000
WAASDATE10148000
//

5. This example purges all members of the SYSUT2 PDS which have an invalid
or missing SSI date, or an SSI date that is older than 45 days.

//JS10 EXEC PGM=WAAPLPDS,PARM=0045IME
//SYSPRINT DD SYSOUT=A
//SYSUT2 DD DSN=EDS00.WAA.MODLIB,DISP=SHR
//

6. This example updates or adds SSI level "1D" to the two modules shown on
the control cards.

//JS10 EXEC PGM=WAAPLPDS,PARM='SSIL=1D'
//SYSPRINT DD SYSOUT=A
//SYSUT2 DD DSN=EDS00.WAA.MODLIB,DISP=SHR
//SYSIN DD *
WAAPSCAN
WAASDATE
//

7. This example updates or adds SSI date to the current date for the two
modules shown on the control cards.

//JS10 EXEC PGM=WAAPLPDS,PARM='SSIZ'
//SYSUT2 DD DSN=EDS00.WAA.MODLIB,DISP=SHR
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
WAAPSCAN
WAASDATE
//

8. This example updates or adds an SSI with a date of 03/21/89 for all
modules with no SSIs, invalid SSIs, and/or SSIs having binary zeroes in
the field.

//JS10 EXEC PGM=WAAPLPDS,PARM='ADDIT,032189'
//SYSUT2 DD DSN=PDSDM.D873S.SORLIB,DISP=SHR
//SYSPRINT DD SYSOUT=A
//
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts STEM usage in REXX CLIST & REXX 14
No new posts z/OS Modules Usage report using SMF 42 DFSORT/ICETOOL 2
No new posts Concatenate 2 fields (usage national)... COBOL Programming 2
No new posts JCL and TAPE drives: how to maximize ... JCL & VSAM 9
No new posts Usage of BINSEARCH PL/I PL/I & Assembler 1
Search our Forums:

Back to Top