Creation date:10/20/1999
Authored by: Karl Ho
Question:
How to create a file on MVS?
Answer:
The following program illustrates how to create an SPSS file
(system file) to be saved on MVS disk for later use:
//IDNNJOB0 JOB
(IDNN,2,40,9999),'YOURNAME',CLASS=B,PASSWORD=XXXXXX,
// USER=IDNN
/*JOBPARM CARDS=999999
/*ROUTE PRINT UNTVM1.IDNN
/*ROUTE PUNCH UNTVM1.IDNN
//*** THE IEFBR14 PROCEDURE CLEARS ANY EXISTING FILE WITH THE
CURRENT
//*** FILE NAME
// EXEC IEFBR14
//DATAOUT DD
UNIT=SYSDA,VOL=SER=ACAD02,DSN=USER.IDNN.WHAT.FILETYPE,
// DISP=(OLD,DELETE)
// EXEC SPSSX
//*** THE FOLLOWING DATA STATEMENT CREATES A FILE FOR SPSS
//*** TO OUTPUT DATA FILE
//DATAOUT DD
UNIT=SYSDA,VOL=SER=ACAD02,DSN=USER.IDNN.WHAT.FILETYPE,
// DISP=(NEW,KEEP,DELETE),SPACE=(CYL,(50,50),RLSE)
//DATADUMP DD SYSOUT=B
//SYSIN DD *
TITLE 'EXPORT FILE TO MVS'
DATA LIST ......
.
.
SAVE OUTFILE=DATAOUT
FINISH
Note that the first procedure IEFBR14 is imperative to clear the way for saving a file on MVS, particularly in situation when multiple submissions are attempted.
Alternatively, if the data file is on CMS, the following SPSS program uploads the CMS data file before saving data file on MVS:
//IDNNJOB0 JOB
(IDNN,2,40,9999),'YOURNAME',CLASS=B,PASSWORD=XXXXXX,
// USER=IDNN
/*JOBPARM CARDS=999999
/*ROUTE PRINT UNTVM1.IDNN
/*ROUTE PUNCH UNTVM1.IDNN
//** THE IEFBR14 PROCEDURE CLEARS ANY EXISTING FILE WITH THE
CURRENT*/
//** FILE NAME */
// EXEC IEFBR14
//DATAOUT DD
UNIT=SYSDA,VOL=SER=ACAD0N,DSN=USER.IDNN.OUTPUT1.FILETYPE,
// DISP=(OLD,DELETE)
// EXEC SPSSX
//PORT DD DATA,DLM='$%'
/INC RAW DATA E1
$%
//*** THE FOLLOWING DATA STATEMENT CREATES A FILE FOR SPSS
//*** TO OUTPUT DATA FILE
//DATAOUT DD
UNIT=SYSDA,VOL=SER=ACAD0N,DSN=USER.IDNN.OUTPUT1.FILETYPE,
// DISP=(NEW,KEEP),SPACE=(CYL,(50,50),RLSE)
//DATADUMP DD SYSOUT=B
//SYSIN DD *
TITLE 'EXPORT DATA FILE TO MVS'
DATA LIST FILE = PORT
.
.
.
SAVE OUTFILE=DATAOUT
FINISH
Last updated: 01/18/06 by Karl Ho