MVSFORUMS.com

I have used CuteFTP from GlobalScape. Also used Bluezone FTP (part of Bluezone 3270 emulator from Seagull Software).

The key to a reentrant program is that you don't store into the program, meaning that all variable storage has to be GETMAINed. Typically you will use a DSECT to map that storage area.

Warning, m ...

Frank, you are correct. I am used to looking at the physical CIs in VSAM, where you use the lengths in the RDF to move between records.

What Shekar said is true for a KSDS (Keyed Sequential Data Set), but most other VSAM cluster types (e.g., ESDS-Entry Sequenced Data Set) have only a data component. An ESDS is essentially a VSAM seq ...

DISP=SHR will not let you read a dataset which is being created. A NEW dataset will get an exclusive (EXC) ENQ on the DSNAME, which will lock out any SHR ENQs.

Actually all VSAM (except Linear) is variable, meaning that every record starts with its length. But in a LISTCAT if the MAXLRECL and the AVGLRECL values are the same, then it is effectivly a fixed ...

Two issues:

First, the DCB gets modified by OPEN and CLOSE so it can't be within a reentrant program.
Second, the DCB must be in 24-bit storage (below the line) so it can't be within a RMODE ANY p ...

>1) I can allocate with NEW even if there it already exists. Both datasets get deleted upon completion of the job. SInce the first file is also deleted I cannot perfrom any recovery on it. So, I wa ...

>If I code DISP=(NEW,PASS,CATLG) for an existing dataset, and job runs clean, the dataset is deleted as expected.

Huh? You can't use DISP=NEW to reference an existing dataset. If by chance th ...

If you are copying all the members in your input PDS into a new output PDS (like in Kolusu's example), it would be much faster to use DFSMSdss (ADRDSSU) or FDRCOPY to copy the PDS.

If you are mer ...

You might try the CONCURRENT operand. Concurrent Copy will ENQ on the dataset only for long enough to initialize the concurrent copy session, then it releases it during the backup.

the problem is your VOL parm. It is not VOL=SER (like in JCL), it is VOL=devicetype=serial, e.g.,

VOL=3390=TSO002

another possibility is that you speciied a volume serial in the first step, e.g., VOL=SER=12345. The volume referback only works for multi-vol if the first step is non-specific (scratch tape).

You can do it with the IBM IEHLIST utility
//STEP1 EXEC PGM=IEHLIST
//SYSPRINT DD output dataset
//DD2 DD UNIT=3390,VOLUME= ...

When a step in a job ABENDs (as opposed to just setting a condition code), all following steps are automatically bypassed UNLESS you code COND=EVEN (execute even if a prev step ABENDed) or COND=ONLY ...