Creation date: 05/05/98

Question:

How to upload data to OS/MVS from CMS?

Answer:

Method I:

The following IEBGENER program uploads an SPSS portable file directly to MVS:

//* This program uploads an SPSS portable file directly from CMS to MVS
//IDnnXXXX JOB (IDnn,2,40,9999),'your name',CLASS=B,PASSWORD=BATCHPW,
// USER=IDnn
/*JOBPARM CARDS=999999
/*ROUTE PRINT UNTVM1.IDnn
/*ROUTE PUNCH UNTVM1.IDnn
//* This Job will send data to OS/MVS ACAD disk via IEBGENER.
//* IEFBR14 clears up data file with same name on MVS disk ACAD0n (n=0,2,3,4)
// EXEC IEFBR14
//DATA DD DSN=USER.IDnn.FILENAME.PORTABLE,DISP=(OLD,DELETE),UNIT=SYSDA,
// VOL=SER=ACAD0N
// EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=A
//SYSUT2 DD UNIT=SYSDA,VOL=SER=ACAD02,DSN=USER.IDnn.FILENAME.PORTABLE,
// DISP=(NEW,KEEP,DELETE),SPACE=(TRK,(500,100),RLSE)
//SYSUT1 DD DATA,DLM='%$'
//*Type in the name of the file on CMS minidisk
/INC FILENAME PORTABLE A1
%$

Method II:

The following CMS program translates an SPSS portable file into an SPSS system file and uploads it onto the MVS disk ACAD0N, where N is 2, 3 or 4:

//* This program uploads SPSS data (portable file) from CMS to MVS
//IDnnXXXX JOB (IDnn,2,40,9999),'YOURNAME',CLASS=B,PASSWORD=BATCHPW,
// USER=IDnn
/*JOBPARM CARDS=999999
/*ROUTE PRINT UNTVM1.IDnn
/*ROUTE PUNCH UNTVM1.IDnn
//* IEFBR14 clears up data file with same name on MVS disk ACAD0n (n=0,2,3,4)
// EXEC IEFBR14
//DATAOUT DD UNIT=SYSDA,VOL=SER=ACAD0N,DSN=USER.IDnn.DATAFN.DATAFT,
// DISP=(OLD,DELETE)
//* The following 3 line upload the file "FILENAME PORTABLE A1" on minidisk A
// EXEC SPSSX
//PORT DD DATA,DLM='$%'
/INCLUDE FILENAME PORTABLE A1
$%
//DATAOUT DD UNIT=SYSDA,VOL=SER=ACAD0N,DSN=USER.IDnn.DATAFN.DATAFT,
// DISP=(NEW,KEEP),SPACE=(TRK,(50,50),RLSE)
//DATADUMP DD SYSOUT=B
//SYSIN DD *
TITLE 'UPLOAD DATA TO MVS'
IMPORT FILE=PORT
SAVE OUTFILE=DATAOUT
FINISH

Note:

1.  If you have a sizeable data set which is larger than what your CMS minidisk A can hold, it is recommended creating a temporary disk on CMS to hold the data temporarily.   To create a tempdisk, type:

tempdisk e

at the Ready prompt, where e is the character drive assigned for the tempdisk.  Type in the number of cylinders needed for temporary space.  One cylinder approximates half a megabyte.  Be prudent on specifying the size of tempdisk since it will occupy the shared space for other users.  For more details, consult another FAQ RSS0004. How to create temporary disk space on CMS?

2.  For operation involving a data set larger than 50 megabytes, it is recommended to consult with RSS consultants for the appropriate disk to hold the data.

3. For large data sets with over 1,000 records, the submission may exceed the line limit.  In that case, merge the JCL program file with the data file using the copy command (i.e.:

copy jclfile filetype filemode datafile filetype filemode target filetype filemode

where the target filetype filemode is the new file combining the jcl and data files.

Since the submit command is bound by record line limit, use the TO MVSSP for submission.

BACK | MAIN

Last updated: 01/18/06 by Karl Ho