Hi,
how can I start a z/OS job from USS REXX and wait for completion?

Lennart L

Hi,

    Thank you for your response.  I am new to ADRDSSU and found it 'interesting'.
I was trying to get away from ADRDSSU renaming the '.index' and
'.data' to '.d' and '.i'.  I could go on.  I did try IDCAMS but I found the
environment to be interesting.  The 'database' for CLSS is not referenced
in the STC JCL.  So I can't specify DISP=SHR and CLSS has exclusive control. 
This generates an error when using IDCAMS w/REPRO while CLSS is up.  I
did play a little with IDCAMs IMPORT/EXPORT and I liked your approach to
renaming the DATA and INDEX datasets.  I will read up more on OBJECTS.  Have
a great weekend!

       Thanks again,  Dave H.





              "flakyredhead" <flakyredhead@...>
              Sent by: os390andmvs@yahoogroups.com
                                                                                                                                                   
To
                                                                     
os390andmvs@yahoogroups.com
              01/24/2008 04:28 PM
cc

                                                                                                                                              
Subject
                             Please respond to                        [OS390 and
MVS] Re: ADRDSSU problems
                        os390andmvs@yahoogroups.com














  --- In os390andmvs@yahoogroups.com, David.L.Hansen@... wrote:
  >
  >
  > Hello Group,
  >
  > I am having trouble with ADRDSSU restoring a file to a different name
  > .
  > I used this JCL to back up a VSAM file to a 'flat' file as
  referenced by the TAPE DD:
  > DUMP DS(INCLUDE(SYTCBV.DATA.CLSS147.RLSTDB.KSDS)) -
  > OUTDDNAME(TAPE) -
  > ALLDATA(*) -
  > ALLEXCP -
  > CANCELERROR -
  > CONCURRENT -
  > NOTIFYCONCURRENT -
  > OPTIMIZE(4) -
  > SPHERE -
  > TOLERATE(ENQFAILURE) -
  > WAIT(0,0)
  >
  > I tried this JCL to restore the 'flat' file:
  > RESTORE INDDNAME(TAPE) -
  > DATASET(INCLUDE(SYTCBV.DATA.CLSS147.RLSTDB.KSDS)) -
  >
  RENUNC(SYTCBV.DATA.CLSS147.RLSTDB.*,SYTCOV.DATA.CLSS147.RLSTDB.*) -
  > CANCELERROR -
  > SPHERE -
  > TOLERATE(ENQFAILURE) -
  > WAIT(0,0)
  >
  > I keep getting this error: ADR730W (001)-FDSRL(01), CLUSTER
  SYTCBV.DATA.CLSS147.RLSTDB.KSDS IS OPEN
  >
  > First I tried to restore to OUTDDNAME and put a DD in that
  > referenced SYTCOV. It still tried to go out to SYTCBV.
  >
  > What is the best way to backup a VSAM file to a flat file and then
  > restore it back? I would like to restore it to something else first
  > as a test.

  Dave, I use IDCAMS to export a VSAM file to a flat/portable format.
  Then IDCAMS to import the VSAM file into the new system/catalog. I
  always run a DEFINE to create the empty file with the right
  characteristics to import the file into. I believe that you can run
  the IMPORT without pre-allocating the file, but that's just not how I
  do it.

  /*
  //STEP1 EXEC PGM=IDCAMS
  //********************************************************

  //* SAMPLE JCL TO EXPORT A VSAM FILES

  //********************************************************
  //FLATFILE DD DSN=COMPTON.PORTABLE.VSAMFILE,UNIT=SYSDA,
  // DISP=(NEW,CATLG),BLKSIZE=6000,
  // SPACE=(CYL,5)
  //SYSPRINT DD SYSOUT=*
  //SYSIN DD *
  EXPORT -
  COMPTON.MASTER.WORKSHOP.VSAMFILE -
  OUTFILE(FLATFILE) -
  TEMPORARY
  /*
  ..........

  //DEFINE EXEC PGM=IDCAMS,REGION=2M
  //SYSPRINT DD SYSOUT=*
  //SYSIN DD *
  SET MAXCC = 0
  DEFINE CL(NAME(COMPTON.CICSNEW.VSAMFILE) -
  CYLINDERS(1 1) -
  VOLUMES(DMPP01) -
  KEYS(17 0) -
  RECORDSIZE(80 80) -
  SHR(1 3) -
  FSPC(10 10)) -
  DATA -
  (CISZ(4096)) -
  INDEX -
  (CISZ(512))
  /*
  //IMPORT EXEC PGM=IDCAMS
  //SOURCE1 DD DSNAME=COMPTON.PORTABLE.VSAMFILE,DISP=OLD
  //SYSPRINT DD SYSOUT=*
  //SYSIN DD *
  IMPORT -
  INFILE(SOURCE1) -
  OUTDATASET(COMPTON.CICSNEW.VSAMFILE) -
  OBJECTS ( -
  ( COMPTON.MASTER.WORKSHOP.VSAMFILE -
  NEWNAME(COMPTON.CICSNEW.VSAMFILE) -
  STORAGECLASS(BASE) -
  MANAGEMENTCLASS(STANDARD) -
  VOLUMES(DMPP01) ) -
  ( COMPTON.MASTER.WORKSHOP.VSAMFILE.DATA -
  NEWNAME(COMPTON.CICSNEW.VSAMFILE.DATA) -
  STORAGECLASS(BASE) -
  MANAGEMENTCLASS(STANDARD) -
  VOLUMES(DMPP01) ) -
  ( COMPTON.MASTER.WORKSHOP.VSAMFILE.INDEX -
  NEWNAME(COMPTON.CICSWWW.SUPTPAC.VSADFLFC.INDEX) -
  STORAGECLASS(BASE) -
  MANAGEMENTCLASS(STANDARD) -
  VOLUMES(DMPP01) ) -
  ) -
  INTOEMPTY
  /*

--- In os390andmvs@yahoogroups.com, David.L.Hansen@... wrote:
>
>
> Hello Group,
>
>    I am having trouble with ADRDSSU restoring a file to a different name
> .
>    I used this JCL to back up a VSAM file to a 'flat' file as
referenced by the TAPE DD:
>             DUMP DS(INCLUDE(SYTCBV.DATA.CLSS147.RLSTDB.KSDS)) -
>            OUTDDNAME(TAPE)      -
>            ALLDATA(*) -
>            ALLEXCP    -
>           CANCELERROR -
>           CONCURRENT -
>           NOTIFYCONCURRENT -
>          OPTIMIZE(4) -
>          SPHERE      -
>          TOLERATE(ENQFAILURE) -
>           WAIT(0,0)
>
> I tried this JCL to restore the 'flat' file:
>       RESTORE INDDNAME(TAPE) -
>       DATASET(INCLUDE(SYTCBV.DATA.CLSS147.RLSTDB.KSDS)) -
>
RENUNC(SYTCBV.DATA.CLSS147.RLSTDB.*,SYTCOV.DATA.CLSS147.RLSTDB.*) -
>      CANCELERROR -
>      SPHERE -
>      TOLERATE(ENQFAILURE) -
>      WAIT(0,0)
>
> I keep getting this error:  ADR730W (001)-FDSRL(01), CLUSTER
SYTCBV.DATA.CLSS147.RLSTDB.KSDS IS OPEN
>
> First I tried to restore to OUTDDNAME and put a DD in that
> referenced SYTCOV.  It still tried to go out to SYTCBV.
>
> What is the best way to backup a VSAM file to a flat file and then
> restore it back?  I would like to restore it to something else first
> as a test.

Dave, I use IDCAMS to export a VSAM file to a flat/portable format.
Then IDCAMS to import the VSAM file into the new system/catalog.  I
always run a DEFINE to create the empty file with the right
characteristics to import the file into.  I believe that you can run
the IMPORT without pre-allocating the file, but that's just not how I
do it.

/*
//STEP1    EXEC  PGM=IDCAMS
//********************************************************

//*   SAMPLE JCL TO EXPORT A VSAM FILES

//********************************************************
//FLATFILE  DD    DSN=COMPTON.PORTABLE.VSAMFILE,UNIT=SYSDA,
//           DISP=(NEW,CATLG),BLKSIZE=6000,
//           SPACE=(CYL,5)
//SYSPRINT DD    SYSOUT=*
//SYSIN    DD    *
      EXPORT -
           COMPTON.MASTER.WORKSHOP.VSAMFILE -
           OUTFILE(FLATFILE) -
           TEMPORARY
/*
..........

//DEFINE   EXEC PGM=IDCAMS,REGION=2M
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
   SET MAXCC = 0
   DEFINE CL(NAME(COMPTON.CICSNEW.VSAMFILE) -
           CYLINDERS(1 1) -
           VOLUMES(DMPP01) -
           KEYS(17 0) -
           RECORDSIZE(80 80) -
           SHR(1 3) -
           FSPC(10 10)) -
        DATA -
          (CISZ(4096)) -
        INDEX -
          (CISZ(512))
/*
//IMPORT   EXEC  PGM=IDCAMS
//SOURCE1  DD    DSNAME=COMPTON.PORTABLE.VSAMFILE,DISP=OLD
//SYSPRINT DD    SYSOUT=*
//SYSIN    DD    *
      IMPORT -
         INFILE(SOURCE1) -
         OUTDATASET(COMPTON.CICSNEW.VSAMFILE) -
         OBJECTS (   -
           ( COMPTON.MASTER.WORKSHOP.VSAMFILE     -
               NEWNAME(COMPTON.CICSNEW.VSAMFILE) -
               STORAGECLASS(BASE)              -
               MANAGEMENTCLASS(STANDARD)          -
               VOLUMES(DMPP01) ) -
           ( COMPTON.MASTER.WORKSHOP.VSAMFILE.DATA -
               NEWNAME(COMPTON.CICSNEW.VSAMFILE.DATA) -
               STORAGECLASS(BASE)              -
               MANAGEMENTCLASS(STANDARD)          -
               VOLUMES(DMPP01) ) -
           ( COMPTON.MASTER.WORKSHOP.VSAMFILE.INDEX  -
               NEWNAME(COMPTON.CICSWWW.SUPTPAC.VSADFLFC.INDEX) -
               STORAGECLASS(BASE)              -
               MANAGEMENTCLASS(STANDARD)          -
               VOLUMES(DMPP01) )  -
                                           ) -
           INTOEMPTY
/*

Hello Group,

    I am having trouble with ADRDSSU restoring a file to a different name
.
    I used this JCL to back up a VSAM file to a 'flat' file as referenced by the
TAPE DD:
             DUMP DS(INCLUDE(SYTCBV.DATA.CLSS147.RLSTDB.KSDS)) -
            OUTDDNAME(TAPE)      -
            ALLDATA(*) -
            ALLEXCP    -
           CANCELERROR -
           CONCURRENT -
           NOTIFYCONCURRENT -
          OPTIMIZE(4) -
          SPHERE      -
          TOLERATE(ENQFAILURE) -
           WAIT(0,0)

I tried this JCL to restore the 'flat' file:
       RESTORE INDDNAME(TAPE) -
       DATASET(INCLUDE(SYTCBV.DATA.CLSS147.RLSTDB.KSDS)) -
       RENUNC(SYTCBV.DATA.CLSS147.RLSTDB.*,SYTCOV.DATA.CLSS147.RLSTDB.*) -
      CANCELERROR -
      SPHERE -
      TOLERATE(ENQFAILURE) -
      WAIT(0,0)

I keep getting this error:  ADR730W (001)-FDSRL(01), CLUSTER
SYTCBV.DATA.CLSS147.RLSTDB.KSDS IS OPEN

First I tried to restore to OUTDDNAME and put a DD in that referenced SYTCOV. 
It still tried to go out to SYTCBV.

What is the best way to backup a VSAM file to a flat file and then restore it
back?  I would like to restore it to something else first as a test.


       Thank you,  Dave Hansen
                               Sr. Systems Programmer
                               Hennepin County

You can order php for z/OS using ShopZseries by ordering the free of charge program number 5655-M23 and SMP-installing function HPHP110.

- Configuration (USS/OpenEditionMVS) (remember to use codepage 1047:
square brakets should look like Ý and ¨ using CP037 !!!) :
 
copy the sample php.ini to /etc and add the following lines:
[PDO]
pdo.dsn.LOCAL="odbc:DB2S"  (if DB2S is your dsn name)

Create a file in /etc called DSNAOINI that contains the following lines:
[COMMON]
MVSDEFAULTSSID=DB2S
[DB2S]
MVSATTACHTYPE=CAF
PLANNAME=DSNACLI

In the file /etc/httpd.envvars add the following line:
PHPRC=/etc

Stop and start IBM HTTP Server (IMWEBSRV).

- Sample application with DB2 access:

If you want to convert a DB2 table in a html page you can code the following
text in file test.php in the directory pointed to by an Exec verb in httpd.conf

The directory should be protected in httpd.conf with the Protection Passwdfile %%SAF%% verb to have the user identified by RACF.

#!/usr/lpp/php/bin/php_cgi
<html>
<head><title>My first PHP program</title></head>
<body>
<h1>A web page with a table created from DB2:</h1>
<table><tr><td>Key<td>Name</tr>
<?php
putenv('DSNAOINI=/etc/DSNAOINI');
try{
 $dbconn=new PDO('LOCAL');
 $dbconn->setAttribute(PDO::ATTR_ERRMODE,PDO::ERRMODE_WARNING);
 $query='SELECT KEY,FULLNAME FROM OWNER.PHONEDB';
 $stmt=$dbconn->prepare($query);
 if (!$stmt->execute()) {
  echo "Failed:<br>SQLSTATE=". $stmt->errorCode() . "<br>\n";
  $err=$stmt->errorInfo();
  echo "SQLCODE=" . $err[1];
  echo "ERROR:" . $err[2] . "<br>\n";
 }
 while ($row=$stmt->fetch()) {
  extract($row, EXTR_PREFIX_ALL,'d');
  echo '<tr><td>' . $d_KEY . '<td>' . $d_FULLNAME '</tr>' . "\n";
 }
} catch(PDOException $e) {
 echo "Failed: " . $e->getMessage();
 exit();
}
$stmt=NULL;
$dbconn=NULL;
?>
</table>
</body>
</html>

Any error will be reported in the log cgi-error.date
 

Have fun with PHP for z/OS.

P.S.: If you manage to port a useful php application to z/OS, please do share !!!

Marco

Hi,

    I have been reading about blocking and deblocking using CMS pipes.  The z/VM
CMS Pipelines User's Guide (SC24-6077) says in MVS, the INMRCOPY
utility processes files in NETDATA format.  I am new to MVS and have been trying
to understand all the MVS utilities that are available to me.  I
usually reference one book, the DFSMSdfp Utilities (SC26-7414).  However I
didn't find INMRCOPY mentioned at all.  In working with MVS I did find
IEBCOPY doesn't like copying z/VM files on z/OS packs, I had to use IEBGENER to
copy them.  I am still learning a few things.

Q). What MVS Utilities book has INMRCOPY documented?  Am I missing out on any
other good Utility books?

       Thank you,  Dave Hansen
                               Sr. System Programmer
                               Hennepin County

Hi Group,
We are having a CICS Automation thru batch wherein CICS functional ID
logons to CICS using current active console. Say the SMCS console is
A. Cmd is
'F CICSRGN,CESN USER=USERID,PS=PASSWORD' consid(A)

CICS remembers the console A from where the user logged on.

The command is issued from a console A again to logoff the userid.

But sometimes Operations logoff the console while Automation gateway
functional id is logged on to CICS.

As the console is not available, user can not logoff from the console
and the subsequent CICs Automation fails.

Currently multi signon facility is not enabled in CICS.

I guess using cons(0) will not work because we have a check in the
script not to use cons 0.

can we put a Enqueue on a Console so that it will not be logged of
until CICD id signoff?

what might be the QNAME and RNAME while working with ENQ?

What might be the impact to system productivity during ENQ period?

Kindly help..

Regards,
Dinesh

Hi Peter,

             Thanks for your suggestions. I think the flat file would be better as you stated. Can you please provide me with a sample od LMM services. Thanks

-- "Peter Keldenich" <peter.keldenich@...> wrote:
Hi Ken,

there is a service in ISPF which allows you to  use the 3.3 copy option within a REXX. This is called LMCOPY.
Assuming you would be able to create a flat file of the following format:

DS:  <name of ds to be backed up>  <name of the target ds>
mbrname1
mbrname2 
...
mbrnameN

you could repeat the above block as many times as you like and store it into a ds named (for example) INPUT.
Then a REXX could read this input an either copy it online (or in a second go even create a BATCHJOB).
Because of another service named LMMLIST you could even specify the member names in generic mode using * and % in the member name. Personally I would favour this flat file input instead of an ISPF-Table, because it is much easier to maintain. As an alternative you could prefix the execution of the copy process, by an EDIT of the INPUT dataset, which could also be done automatically.

In case you do not imediately know, how to use the above services, there is a ISPF Edit primary command: MODEL which, will lead you to a panel ISREMRXC, where you could select the Option L0.

Or... you could ask me to provide you with an example :-) which of course I would have to program first ;-) but still I think it should not take very long, if you would agree not to have to many recovery routines :-)

Regards



Mit freundlichen Grüßen

Peter Keldenich
Zentrales Rechenzentrum BPM

Telefon: (0228) 920-68239
mobil (0160) 901 33 702
Fax: (0228) 920-63228

Internet: Peter.Keldenich@...
 
Postbank Systems AG
Baunscheidtstraße 8
53113 Bonn
 
Sitz Bonn,Amtsgericht Bonn, HRB 8867
 
Vorstand: Klaar de Graaf, Vorsitzender
Manfred Löw, Dr. Thomas Mangel, Richard Moormann
 
Aufsichtsrat: Dirk Berensmann, Vorsitzender
______________________________ 


>>> "kenp11@..." <kenp11@...> 02.08.2007 04:36 >>>
Hi Peter,
             The backups are currently done via ISPF 3.3.  We copy members given to us on a spreadsheet. Process:  The  Prod members are copied FROM  Hilev.*.parmlib: Hilev.*.parmcntl;hilev.*jcllib and sent TO  BHILEV.*.* . Then the STAGING member is copied from SHILVE.*.* to prod  HILEV.*.*     Its the actual member being backed up for each project. So a specific member backup would be ideal. I think i saw  a SHARE project where a REXX exec is used.
The dataset is cut and paste along with a member into a field  then REXX Exec searches list of  dsn's  in a table that can be edited. The execution of the EXEC copies member after searching the index.
Hope this helps. Thanks in advance for your help.

-- "Peter Keldenich" <peter.keldenich@...> wrote:
Hi Ken,

if you could give more details about your backup technique I might be able to supply some information or example.
Whar does your input look like:
Would you like to backup some HLQ.* to BACKUP.* datasets? Would you like complete backups. or on a specific member name basis?

You may contact me also on a direct basis.



Mit freundlichen Gr**en

Peter Keldenich
Zentrales Rechenzentrum BPM

Telefon: (0228) 920-68239
mobil (0160) 901 33 702
Fax: (0228) 920-63228

Internet: Peter.Keldenich@... 
 
Postbank Systems AG
Baunscheidtstra*e 8
53113 Bonn
 
Sitz Bonn,Amtsgericht Bonn, HRB 8867
 
Vorstand: Klaar de Graaf, Vorsitzender
Manfred L*w, Dr. Thomas Mangel, Richard Moormann
 
Aufsichtsrat: Dirk Berensmann, Vorsitzender
______________________________ 


>>> kpatr_candle <no_reply@yahoogroups.com> 31.07.2007 05:11 >>>
Hi All,
       Does anyone have any automation scripts, clists or JCL that work 
with ISPW or Control-M on MVS? Is there a sampel website?
Also my company does a lot of backups to PDS MEMBERS in datasets.
I am looking for clists that can backup members to a  set predefined 
PDS datasets. (Backup, Source Target)      Any rexx clist or sample jcl 
will help.
There are a set of 100 datasets that we do daily MEMBER backup to.
I am looking for  something like a rexx exec that can view the 
production highlevel qualifier and retrieve the backup dataset, put the 
members in, then copy from stag the same meber and place in production

Samples or webiste would be great. Thamks

Ken P.
 


Diese Nachricht ist nur f*r den vorgesehenen Empf*nger bestimmt. Sollten Sie nicht der vorgesehene Empf*nger dieser E-Mail und ihres Inhalts sein oder diese E-Mail irrt*mlich erhalten haben, bitten wir Sie, den Absender unverz*glich dar*ber zu informieren und diese Nachricht und all ihre Anh*nge vollst*ndig von Ihrem Computer zu l*schen. 
Jede Form der unbefugten Nutzung, Ver*ffentlichung, des Kopierens oder der Offenlegung des Inhalts dieser E-Mail ist nicht gestattet. 

This message is intended for the addressee only. If you are not the intended recipient of this e-mail message and its content or have received this e-mail in error, please notify the sender immediately and delete this message and all its attachments. 
Any form of unauthorized use, publication, copying or disclosure of the content of this e-mail is prohibited.




 
Yahoo! Groups Links






_____________________________________________________________________
Get NetZero DSL - the easier, safer broadband!
http://track.netzero.net/s/lc?u=http://ads.addynamix.com/click/2-2125048-26

Diese Nachricht ist nur für den vorgesehenen Empfänger bestimmt. Sollten Sie nicht der vorgesehene Empfänger dieser E-Mail und ihres Inhalts sein oder diese E-Mail irrtümlich erhalten haben, bitten wir Sie, den Absender unverzüglich darüber zu informieren und diese Nachricht und all ihre Anhänge vollständig von Ihrem Computer zu löschen. 
Jede Form der unbefugten Nutzung, Veröffentlichung, des Kopierens oder der Offenlegung des Inhalts dieser E-Mail ist nicht gestattet. 

This message is intended for the addressee only. If you are not the intended recipient of this e-mail message and its content or have received this e-mail in error, please notify the sender immediately and delete this message and all its attachments. 
Any form of unauthorized use, publication, copying or disclosure of the content of this e-mail is prohibited.




 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/os390andmvs/

<*> Your email settings:
    Individual Email | Traditional

<*> To change settings online go to:
    http://groups.yahoo.com/group/os390andmvs/join
    (Yahoo! ID required)

<*> To change settings via email:
    mailto:os390andmvs-digest@yahoogroups.com 
    mailto:os390andmvs-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
    os390andmvs-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/
 

Hi Ken,

there is a service in ISPF which allows you to  use the 3.3 copy option within a
REXX. This is called LMCOPY.
Assuming you would be able to create a flat file of the following format:

DS:  <name of ds to be backed up>  <name of the target ds>
mbrname1
mbrname2
...
mbrnameN

you could repeat the above block as many times as you like and store it into a
ds named (for example) INPUT.
Then a REXX could read this input an either copy it online (or in a second go
even create a BATCHJOB).
Because of another service named LMMLIST you could even specify the member names
in generic mode using * and % in the member name. Personally I would favour this
flat file input instead of an ISPF-Table, because it is much easier to maintain.
As an alternative you could prefix the execution of the copy process, by an EDIT
of the INPUT dataset, which could also be done automatically.

In case you do not imediately know, how to use the above services, there is a
ISPF Edit primary command: MODEL which, will lead you to a panel ISREMRXC, where
you could select the Option L0.

Or... you could ask me to provide you with an example :-) which of course I
would have to program first ;-) but still I think it should not take very long,
if you would agree not to have to many recovery routines :-)

Regards



Mit freundlichen Grüßen

Peter Keldenich
Zentrales Rechenzentrum BPM

Telefon: (0228) 920-68239
mobil (0160) 901 33 702
Fax: (0228) 920-63228

Internet: Peter.Keldenich@...

Postbank Systems AG
Baunscheidtstraße 8
53113 Bonn

Sitz Bonn,Amtsgericht Bonn, HRB 8867

Vorstand: Klaar de Graaf, Vorsitzender
Manfred Löw, Dr. Thomas Mangel, Richard Moormann

Aufsichtsrat: Dirk Berensmann, Vorsitzender
______________________________


>>> "kenp11@..." <kenp11@...> 02.08.2007 04:36 >>>
Hi Peter,
              The backups are currently done via ISPF 3.3.  We copy members given
to us on a spreadsheet. Process:  The  Prod members are copied FROM 
Hilev.*.parmlib: Hilev.*.parmcntl;hilev.*jcllib and sent TO  BHILEV.*.* . Then
the STAGING member is copied from SHILVE.*.* to prod  HILEV.*.*     Its the
actual member being backed up for each project. So a specific member backup
would be ideal. I think i saw  a SHARE project where a REXX exec is used.
The dataset is cut and paste along with a member into a field  then REXX Exec
searches list of  dsn's  in a table that can be edited. The execution of the
EXEC copies member after searching the index.
Hope this helps. Thanks in advance for your help.

-- "Peter Keldenich" <peter.keldenich@...> wrote:
Hi Ken,

if you could give more details about your backup technique I might be able to
supply some information or example.
Whar does your input look like:
Would you like to backup some HLQ.* to BACKUP.* datasets? Would you like
complete backups. or on a specific member name basis?

You may contact me also on a direct basis.



Mit freundlichen Gr**en

Peter Keldenich
Zentrales Rechenzentrum BPM

Telefon: (0228) 920-68239
mobil (0160) 901 33 702
Fax: (0228) 920-63228

Internet: Peter.Keldenich@...

Postbank Systems AG
Baunscheidtstra*e 8
53113 Bonn

Sitz Bonn,Amtsgericht Bonn, HRB 8867

Vorstand: Klaar de Graaf, Vorsitzender
Manfred L*w, Dr. Thomas Mangel, Richard Moormann

Aufsichtsrat: Dirk Berensmann, Vorsitzender
______________________________


>>> kpatr_candle <no_reply@yahoogroups.com> 31.07.2007 05:11 >>>
Hi All,
        Does anyone have any automation scripts, clists or JCL that work
with ISPW or Control-M on MVS? Is there a sampel website?
Also my company does a lot of backups to PDS MEMBERS in datasets.
I am looking for clists that can backup members to a  set predefined
PDS datasets. (Backup, Source Target)      Any rexx clist or sample jcl
will help.
There are a set of 100 datasets that we do daily MEMBER backup to.
I am looking for  something like a rexx exec that can view the
production highlevel qualifier and retrieve the backup dataset, put the
members in, then copy from stag the same meber and place in production

Samples or webiste would be great. Thamks

Ken P.



Diese Nachricht ist nur f*r den vorgesehenen Empf*nger bestimmt. Sollten Sie
nicht der vorgesehene Empf*nger dieser E-Mail und ihres Inhalts sein oder diese
E-Mail irrt*mlich erhalten haben, bitten wir Sie, den Absender unverz*glich
dar*ber zu informieren und diese Nachricht und all ihre Anh*nge vollst*ndig von
Ihrem Computer zu l*schen.
Jede Form der unbefugten Nutzung, Ver*ffentlichung, des Kopierens oder der
Offenlegung des Inhalts dieser E-Mail ist nicht gestattet.

This message is intended for the addressee only. If you are not the intended
recipient of this e-mail message and its content or have received this e-mail in
error, please notify the sender immediately and delete this message and all its
attachments.
Any form of unauthorized use, publication, copying or disclosure of the content
of this e-mail is prohibited.





Yahoo! Groups Links






_____________________________________________________________________
Get NetZero DSL - the easier, safer broadband!
http://track.netzero.net/s/lc?u=http://ads.addynamix.com/click/2-2125048-26

Diese Nachricht ist nur für den vorgesehenen Empfänger bestimmt. Sollten Sie
nicht der vorgesehene Empfänger dieser E-Mail und ihres Inhalts sein oder diese
E-Mail irrtümlich erhalten haben, bitten wir Sie, den Absender unverzüglich
darüber zu informieren und diese Nachricht und all ihre Anhänge vollständig von
Ihrem Computer zu löschen.
Jede Form der unbefugten Nutzung, Veröffentlichung, des Kopierens oder der
Offenlegung des Inhalts dieser E-Mail ist nicht gestattet.

This message is intended for the addressee only. If you are not the intended
recipient of this e-mail message and its content or have received this e-mail in
error, please notify the sender immediately and delete this message and all its
attachments.
Any form of unauthorized use, publication, copying or disclosure of the content
of this e-mail is prohibited.

Hello Ken,

what I have till now:

Assuming datasets of the type

HLQ.TEST%.BACKUP with % = 1,2,3 and
  the following MBR List in HLQ.TEST1.BACKUP
  A
  A1
  A1BC
  A2DE
  B
  B1
  C
  C234C
  MN1CBE
  M1BD
  M1BEF
  M2CE

and an INPUT DS: XXX.USER.CNTL(BACKUPIN) with the content:
  DS: TEST1.CNTL  TEST3.BACKUP
  A
  B
  DS: 'HLQ.TEST1.BACKUP' TEST2.BACKUP
  A
  B
  %%%%
  %1
  %1*
  *C
  M*
*B*

you could invoke an (upt now incomplete) REXX procedure, which would tell you:

'HLQ.TEST1.CNTL' was not found in catalog.

Following masks would have been processed:

           MASK.1 = A


           MASK.2 = B

Input   DS: 'HLQ.TEST1.BACKUP'
Output DS: TEST2.BACKUP


           MASK.1 = A
A

           MASK.2 = B
B

          MASK.3 = %%%%
  A1BC
  A2DE
  M1BD
  M2CE

           MASK.4 = %1
  A1
  B1

           MASK.5 = %1*
  A1
  A1BC
  B1
  M1BD
  M1BEF

           MASK.6 = *C
  A1BC
  C
  C234C

           MASK.7 = M*
  MN1CBE
  M1BD
  M1BEF
  M2CE

          MASK.8 = *B*
A1BC
B
B1
MN1CBE
M1BD
M1BEF
***


BTW: The output DS is not fully qualified, assuming that HLQ would be the Prefix
of the Userid invoking the REXX-procedure, which is true for me because I used
my own USERID as HLQ for testing purposes.

If you are interested, just let me know and I could:
1. make the procedure actually copy the members and
2. send it to you.

Just to play safe, this would be just an example on an as is basis, without any
responsability or guarantee neither from me nor from my company.
Just fyi: The coding up to now is 63 lines, without any documentation :-( but it
proved to be more challenging than I originally thought...

If you have questions, more requirements or suggestions, just let me know, in
case I missed something :-)

Regards


Mit freundlichen Grüßen

Peter Keldenich
Zentrales Rechenzentrum BPM

Telefon: (0228) 920-68239
mobil (0160) 901 33 702
Fax: (0228) 920-63228

Internet: Peter.Keldenich@...

Postbank Systems AG
Baunscheidtstraße 8
53113 Bonn

Sitz Bonn,Amtsgericht Bonn, HRB 8867

Vorstand: Klaar de Graaf, Vorsitzender
Manfred Löw, Dr. Thomas Mangel, Richard Moormann

Aufsichtsrat: Dirk Berensmann, Vorsitzender
______________________________


Diese Nachricht ist nur für den vorgesehenen Empfänger bestimmt. Sollten Sie
nicht der vorgesehene Empfänger dieser E-Mail und ihres Inhalts sein oder diese
E-Mail irrtümlich erhalten haben, bitten wir Sie, den Absender unverzüglich
darüber zu informieren und diese Nachricht und all ihre Anhänge vollständig von
Ihrem Computer zu löschen.
Jede Form der unbefugten Nutzung, Veröffentlichung, des Kopierens oder der
Offenlegung des Inhalts dieser E-Mail ist nicht gestattet.

This message is intended for the addressee only. If you are not the intended
recipient of this e-mail message and its content or have received this e-mail in
error, please notify the sender immediately and delete this message and all its
attachments.
Any form of unauthorized use, publication, copying or disclosure of the content
of this e-mail is prohibited.

Can we discuss somethig about LE Environment? I am going to start a
new project with the same!

Indraneel

Hi Peter,

             The backups are currently done via ISPF 3.3.  We copy members given to us on a spreadsheet. Process:  The  Prod members are copied FROM  Hilev.*.parmlib: Hilev.*.parmcntl;hilev.*jcllib and sent TO  BHILEV.*.* . Then the STAGING member is copied from SHILVE.*.* to prod  HILEV.*.*     Its the actual member being backed up for each project. So a specific member backup would be ideal. I think i saw  a SHARE project where a REXX exec is used.

The dataset is cut and paste along with a member into a field  then REXX Exec searches list of  dsn's  in a table that can be edited. The execution of the EXEC copies member after searching the index.

Hope this helps. Thanks in advance for your help.

-- "Peter Keldenich" <peter.keldenich@...> wrote:
Hi Ken,

if you could give more details about your backup technique I might be able to supply some information or example.
Whar does your input look like:
Would you like to backup some HLQ.* to BACKUP.* datasets? Would you like complete backups. or on a specific member name basis?

You may contact me also on a direct basis.



Mit freundlichen Grüßen

Peter Keldenich
Zentrales Rechenzentrum BPM

Telefon: (0228) 920-68239
mobil (0160) 901 33 702
Fax: (0228) 920-63228

Internet: Peter.Keldenich@...
 
Postbank Systems AG
Baunscheidtstraße 8
53113 Bonn
 
Sitz Bonn,Amtsgericht Bonn, HRB 8867
 
Vorstand: Klaar de Graaf, Vorsitzender
Manfred Löw, Dr. Thomas Mangel, Richard Moormann
 
Aufsichtsrat: Dirk Berensmann, Vorsitzender
______________________________ 


>>> kpatr_candle <no_reply@yahoogroups.com> 31.07.2007 05:11 >>>
Hi All,
       Does anyone have any automation scripts, clists or JCL that work 
with ISPW or Control-M on MVS? Is there a sampel website?
Also my company does a lot of backups to PDS MEMBERS in datasets.
I am looking for clists that can backup members to a  set predefined 
PDS datasets. (Backup, Source Target)      Any rexx clist or sample jcl 
will help.
There are a set of 100 datasets that we do daily MEMBER backup to.
I am looking for  something like a rexx exec that can view the 
production highlevel qualifier and retrieve the backup dataset, put the 
members in, then copy from stag the same meber and place in production

Samples or webiste would be great. Thamks

Ken P.
 


Diese Nachricht ist nur für den vorgesehenen Empfänger bestimmt. Sollten Sie nicht der vorgesehene Empfänger dieser E-Mail und ihres Inhalts sein oder diese E-Mail irrtümlich erhalten haben, bitten wir Sie, den Absender unverzüglich darüber zu informieren und diese Nachricht und all ihre Anhänge vollständig von Ihrem Computer zu löschen. 
Jede Form der unbefugten Nutzung, Veröffentlichung, des Kopierens oder der Offenlegung des Inhalts dieser E-Mail ist nicht gestattet. 

This message is intended for the addressee only. If you are not the intended recipient of this e-mail message and its content or have received this e-mail in error, please notify the sender immediately and delete this message and all its attachments. 
Any form of unauthorized use, publication, copying or disclosure of the content of this e-mail is prohibited.




 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/os390andmvs/

<*> Your email settings:
    Individual Email | Traditional

<*> To change settings online go to:
    http://groups.yahoo.com/group/os390andmvs/join
    (Yahoo! ID required)

<*> To change settings via email:
    mailto:os390andmvs-digest@yahoogroups.com 
    mailto:os390andmvs-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
    os390andmvs-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/
 

You vary DASD only online,  not a DASD LIBRARY.  I am not aware of a term called DASD LIBRARY.  If you could provide an example I could be more specific in my answer.

So you use a V xxxxx,ONLINE type of MVS command to bring DASD ONLINE.  Where xxxx is the UCB that the DASD Volume resides on.

If this is not the answer you seek, please provide more specific details - Operating System Level, Hardware details (Type of Dasd Device)

Lizette

-----Original Message-----
From: Ltaylor73 Gmail
Sent: Jul 31, 2007 5:38 PM
To: os390andmvs@yahoogroups.com
Subject: [OS390 and MVS] DASD library question

Hello All,

If I want to vary online a tape library I use the
V SMS,LIB(libraryname),ONLINE command.
But how can I put online a DASD library?

Could You help me solving this problem?

Many thanks in advance,


Taylor

Hi Ken,

if you could give more details about your backup technique I might be able to
supply some information or example.
Whar does your input look like:
Would you like to backup some HLQ.* to BACKUP.* datasets? Would you like
complete backups. or on a specific member name basis?

You may contact me also on a direct basis.



Mit freundlichen Grüßen

Peter Keldenich
Zentrales Rechenzentrum BPM

Telefon: (0228) 920-68239
mobil (0160) 901 33 702
Fax: (0228) 920-63228

Internet: Peter.Keldenich@...

Postbank Systems AG
Baunscheidtstraße 8
53113 Bonn

Sitz Bonn,Amtsgericht Bonn, HRB 8867

Vorstand: Klaar de Graaf, Vorsitzender
Manfred Löw, Dr. Thomas Mangel, Richard Moormann

Aufsichtsrat: Dirk Berensmann, Vorsitzender
______________________________


>>> kpatr_candle <no_reply@yahoogroups.com> 31.07.2007 05:11 >>>
Hi All,
        Does anyone have any automation scripts, clists or JCL that work
with ISPW or Control-M on MVS? Is there a sampel website?
Also my company does a lot of backups to PDS MEMBERS in datasets.
I am looking for clists that can backup members to a  set predefined
PDS datasets. (Backup, Source Target)      Any rexx clist or sample jcl
will help.
There are a set of 100 datasets that we do daily MEMBER backup to.
I am looking for  something like a rexx exec that can view the
production highlevel qualifier and retrieve the backup dataset, put the
members in, then copy from stag the same meber and place in production

Samples or webiste would be great. Thamks

Ken P.



Diese Nachricht ist nur für den vorgesehenen Empfänger bestimmt. Sollten Sie
nicht der vorgesehene Empfänger dieser E-Mail und ihres Inhalts sein oder diese
E-Mail irrtümlich erhalten haben, bitten wir Sie, den Absender unverzüglich
darüber zu informieren und diese Nachricht und all ihre Anhänge vollständig von
Ihrem Computer zu löschen.
Jede Form der unbefugten Nutzung, Veröffentlichung, des Kopierens oder der
Offenlegung des Inhalts dieser E-Mail ist nicht gestattet.

This message is intended for the addressee only. If you are not the intended
recipient of this e-mail message and its content or have received this e-mail in
error, please notify the sender immediately and delete this message and all its
attachments.
Any form of unauthorized use, publication, copying or disclosure of the content
of this e-mail is prohibited.

Hi All,
        Does anyone have any automation scripts, clists or JCL that work
with ISPW or Control-M on MVS? Is there a sampel website?
Also my company does a lot of backups to PDS MEMBERS in datasets.
I am looking for clists that can backup members to a  set predefined
PDS datasets. (Backup, Source Target)      Any rexx clist or sample jcl
will help.
There are a set of 100 datasets that we do daily MEMBER backup to.
I am looking for  something like a rexx exec that can view the
production highlevel qualifier and retrieve the backup dataset, put the
members in, then copy from stag the same meber and place in production

Samples or webiste would be great. Thamks

Ken P.

El Lunes, 23 de Julio de 2007 20:10, Ltaylor73 Gmail escribió:

Welcome!

> Hello everybody,
>
> I am new to this group.
> I am a system operator for 2 years.
> I work with OPC, SDSF, consoles, HMC, SA and netview on Z/OS systems.
> My tasks are monitoring, checking, problem solving and reporting.
>
>
>
> Best regards,
>
>  Taylor

Hello everybody,

I am new to this group.
I am a system operator for 2 years.
I work with OPC, SDSF, consoles, HMC, SA and netview on Z/OS systems.
My tasks are monitoring, checking, problem solving and reporting.



Best regards,

  Taylor

Gary,

Try posting this at

IBM Main Newsgroup     IBM-MAIN@...

>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to listserv@... with the message: GET IBM-MAIN INFO
>Search the archives at http://bama.ua.edu/archives/ibm-main.html


Assembler News Group
ASSEMBLER-LIST@...
> http://www.listserv.uga.edu/archives/asm370.html



Lizette


-----Original Message-----
>From: Gabor Hoffer <hofi75@...>
>Sent: Jul 17, 2007 8:53 AM
>To: os390andmvs@yahoogroups.com
>Subject: [OS390 and MVS] DSPSERV Trick
>
>Hi,
>
>I'm new on this Group and I have a question.
>
>My program creates a Data Space with Macro DSPSERV CREATE,.... Is it
>possible to define Data Space that it won't be deleted after my
>program (Address Spaces) ends? MVS deletes automaticly. :-(  I would
>like to use this DS with other programs.
>
>Regards,
>Gabor
>

Hi,

I'm new on this Group and I have a question.

My program creates a Data Space with Macro DSPSERV CREATE,.... Is it
possible to define Data Space that it won't be deleted after my
program (Address Spaces) ends? MVS deletes automaticly. :-(  I would
like to use this DS with other programs.

Regards,
Gabor

We'll, if the Panvalet subsystem is cancelled, you can't edit Panvalet
members until the subsystem is restarted.

If their started subsystem is looping or not responding, etc and you
have to cancel, you need to capture a dump and send it to the vendor
and they need to fix the cause.

If files are not properly close and can't be opened, you need to
restore to the last backup and use logs to reapply updates to the
checkpoint before the failure.

If you are shutting down for backups, maintenance, IPL, etc, you
should follow their instructions for normal shutdown.

On 5/14/07, David.L.Hansen@...
<David.L.Hansen@...> wrote:
>
>  Group,
>
>  We had an issue the other day when an stc was cancelled.  After the job was
down mvs issued a dump in regards to a timer task.  I called the vendor
>  and they said at termination time they check the type of termination when
performing cleanup.  According to the vendor they don't cleanup timer tasks
>  etc. if you cancel their job.  Tomorrow we will be having a meeting about a
vendors responsibility when we cancel their job.  There is a camp here
>  that believes that if you cancel a subsystem that you should suffer no ill
fate.  After talking to the vendor they report that cancelling a subsystem
>  can cause subsystem corruption.  Because we belive that no ill fate should
come our way when we enter CANCEL a STOP command was never attempted.  In
>  this case the stc was an mvs monitor that runs as a subsystem.
>     My questions:  Is cancel dangerous?  Should a vendor be responsible for an
abend if their subsystem is cancelled?
>
>  TIA,  Dave Hansen
>                 Sr. System Programmer
>                 Hennepin County

--
Mike A Schwab, Springfield IL USA http://geocities.com/maschwab/ for
software links

Group,

    We had an issue the other day when an stc was cancelled.  After the job was
down mvs issued a dump in regards to a timer task.  I called the vendor
and they said at termination time they check the type of termination when
performing cleanup.  According to the vendor they don't cleanup timer tasks
etc. if you cancel their job.  Tomorrow we will be having a meeting about a
vendors responsibility when we cancel their job.  There is a camp here
that believes that if you cancel a subsystem that you should suffer no ill fate.
After talking to the vendor they report that cancelling a subsystem
can cause subsystem corruption.  Because we belive that no ill fate should come
our way when we enter CANCEL a STOP command was never attempted.  In
this case the stc was an mvs monitor that runs as a subsystem.
    My questions:  Is cancel dangerous?  Should a vendor be responsible for an
abend if their subsystem is cancelled?

       TIA,  Dave Hansen
                Sr. System Programmer
                Hennepin County

We had similar problems, we had to adjust the SQA parameter.
Issue SETOMVS command to change values.
Edit SYS1.PARMLIB(BPXPRMxx) to permanently alter values.
Our site had the same problem, a much higher use of (E)SQA with z/OS
1.5 changes.

Please bookmark IBM Look at:
http://www-03.ibm.com/servers/eserver/zseries/zos/bkserv/lookat/

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2M961/SPTM013168 s

IRA100E SQA SHORTAGE

Explanation: The system detected a shortage of virtual system queue
area (SQA) below the 16 MB line. The first of two thresholds was
exceeded. If the shortage becomes critical, message IRA101E is issued.
System Action: The system rejects LOGON, MOUNT, and START commands
until the shortage is relieved.

Operator Response: If the system programmer tells you to cancel jobs
or address spaces that are using an excessive amount of SQA, enter the
CANCEL command to cancel those jobs or address spaces.

System Programmer Response:

Use Resource Measurement Facility (RMF) to display the amount of
SQA/CSA held by particular jobs or address spaces.

If one or more jobs or address spaces are using an excessive amount of
SQA, tell the operator to cancel those jobs or address spaces.

Obtain a dump of common storage. Determine if there has been storage
growth beyond the previous normal range or if the allocation of SQA
and/or CSA is inadequate. Analysis of the dump may be aided if storage
tracking was active during the growth. It is activated by SQA(ON) and
CSA(ON) in the DIAGxx parmlib member.

If the above actions fail to resolve the problem, see z/OS MVS
Initialization and Tuning Reference for additional information on
storage threshold levels.

Source: System resources manager (SRM)
Detecting Module: IRARMST3
Routing Code: 2
Descriptor Code: 11

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2M961/SPTM013171

IRA103I SQA/ESQA HAS EXPANDED INTO CSA/ECSA BY xxxxx PAGES

Explanation: One of the following conditions occurred:

The system allocated pages of virtual storage from the common service
area (CSA) to satisfy a request for virtual storage for the system
queue area (SQA)

The system allocated pages of virtual storage from the extended CSA
(ECSA) to satisfy a request for virtual storage for the extended
system queue area (ESQA)

In the message text: xxxxx
The number of pages added.

System Action: The system repeats the message at timed intervals
during SQA conversion. That means the message will be repeated when a
sufficient amount of change occurs between two intervals until the SQA
conversion has ended.
System Programmer Response: Evaluate the system requirement for SQA
and ESQA. The SQA system parameter specifies the maximum size of the
virtual SQA and ESQA. If needed, increase the default size in the SQA
system parameter during system initialization.

Source: System resources manager (SRM)
Detecting Module: IRARMST3
Routing Code: 2
Descriptor Code: 4

There is z z/OS 1.4, 1.5, and 1.8 tuning guide.  Don't want the
changes for z/OS 1.8, so looking at z/OS 1.5 manual, Search for SQA
and adjust values.
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/DOWNLOAD/IEA2E240.pdf?DT=20\
031218080855

PDF page 155, Printed page 123
SYS1.PARMLIB(BPXPRMxx) values

PDF Page 301, Printed page 269 how to find SQA usage by task using
SYS1.PARMLIB(DIAGxx) member.

On 4/26/07, dimare969 <dimare969@...> wrote:
>
> Hello,
> we have just migrated from z/os 1.4 to z/os 1.7.
> We experienced a serious problem during normal activity.
> The following messages are displayed into the log :
> 12:24:00 IRA100E SQA SHORTAGE
> IRA103I SQA/ESQA HAS EXPANDED INTO CSA/ECSA BY 45057 PAGES
> IRA102I SQA SHORTAGE RELIEVED
> .
> .
> 12:28:09 IRA102I SQA SHORTAGE RELIEVED
> After this messages system goes in hung status and we must reset it
> with ipl.
> During the problem all DB2 and IMS goes in hung status.
> In the next day problem reoccurs and we come back to z/os 1.4.
> Is there a customer that experienced the same problem ?
> Any help will be appreciated.
> Best Regards.

--
Mike A Schwab, Springfield IL USA http://geocities.com/maschwab/ for
software links

Hello,
we have just migrated from z/os 1.4 to z/os 1.7.
We experienced a serious problem during normal activity.
The following messages are displayed into the log :
12:24:00 IRA100E SQA SHORTAGE
          IRA103I SQA/ESQA HAS EXPANDED INTO CSA/ECSA BY 45057 PAGES
          IRA102I SQA SHORTAGE RELIEVED
.
.
.
12:25:00 IRA100E SQA SHORTAGE
          IRA102I SQA SHORTAGE RELIEVED
.
.
.
12:25:16 IRA100E SQA SHORTAGE
          IRA102I SQA SHORTAGE RELIEVED
.
.
.
12:28:00 IRA100E SQA SHORTAGE
          IRA101E CRITICAL SQA SHORTAGE
.
.
.
12:28:09 IRA102I SQA SHORTAGE RELIEVED
After this messages system goes in hung status and we must reset it
with ipl.
During the problem all DB2 and IMS goes in hung status.
In the next day problem reoccurs and we come back to z/os 1.4.
Is there a customer that experienced the same problem ?
Any help will be appreciated.
Best Regards.

Racf mailing list:
http://listserv.uga.edu/archives/racf-l.html

It's not easy to look for the informations inside the RACF database.
We use a product from Beta Systems called Beta/88 to interface the
RACF database and have all the informations indexed and easily retrieved.

Regards.

Marco

--- In os390andmvs@yahoogroups.com, "rickpadgett46217"
<rick.padgett@...> wrote:
>
> I am in the process of changing over from Top-Secret to RACF.  I would
> like to know of a group like this one where i can get some hints and
> tips on RACF things.
>
> Any help would be greatly appreciated.
>
> Rick Padgett
>

I am in the process of changing over from Top-Secret to RACF.  I would
like to know of a group like this one where i can get some hints and
tips on RACF things.

Any help would be greatly appreciated.

Rick Padgett

Shouoldn't the following lines in my IFAPRD00 member prevent the above
from happening?  What am I missing?, please.
Thanks.