That’s a clever approach.

Matt Hogstrom
[email protected]
+1-919-656-0564
PGP Key: 0x90ECB270
Facebook <https://facebook.com/matt.hogstrom>  LinkedIn 
<https://linkedin/in/mhogstrom>  Twitter <https://twitter.com/hogstrom>

“It may be cognitive, but, it ain’t intuitive."
— Hogstrom

> On Dec 28, 2021, at 7:58 PM, CM Poncelet 
> <[email protected]> wrote:
> 
> Try something like this (syntax might need to be corrected):
>  
> //CHECKDEL EXEC PGM=IDCAMS
> //SYSPRINT  DD SYSOUT=*
> //SYSIN     DD *
>   LISTCAT ENT(AA.AA),NAME
> 
>   IF MAXCC NE 0 THEN DO
>   DELETE BB.BB NVSAM SCRATCH PURGE
>   DELETE CC.CC NVSAM SCRATCH PURGE
>   DELETE DD.DD NVSAM SCRATCH PURGE 
>   SET MAXCC EQ 0
>   END
> 
> /*
> //*
> //
>  
> 
> 
> On 28/12/2021 21:10, PINION, RICHARD W. wrote:
>> I'm going to ask what many of you may consider a foolish question.  Please 
>> be kind in
>> your criticism.  Let's say I have 4 datasets, a.a, b.b, c.c, and d.d.  Is 
>> there any way to
>> define a relationship between a.a to b.b, a.a to c.c , and a.a to d.d?  What 
>> I would like
>> to happen, if a.a is deleted, b.b, c.c, and d.d would be deleted.
>> Confidentiality notice: 
>> This e-mail message, including any attachments, may contain legally 
>> privileged and/or confidential information. If you are not the intended 
>> recipient(s), or the employee or agent responsible for delivery of this 
>> message to the intended recipient(s), you are hereby notified that any 
>> dissemination, distribution, or copying of this e-mail message is strictly 
>> prohibited. If you have received this message in error, please immediately 
>> notify the sender and delete this e-mail message from your computer.
>> 
>> ----------------------------------------------------------------------
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to [email protected] with the message: INFO IBM-MAIN
>> .
>> 
> 
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN


----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to