TS-560

TS455 Install Instructions for the International Formats on the 6.09E TS455 Media for MVS

In order to unload an international format/informat from your install tape for the SAS System on MVS in TS455, you must follow the steps below. However, if your media contains the December Usage Notes, these steps will no longer apply and you will need to follow the steps described on page 2 of the ALERT Notes.

To modify the sample script, change the lower case text in the example to reflect your site-specific information.  Change the information as indicated below:

• Modify the first lines of the IEBCOPY job to contain jobcard information for your site.
• Replace xx and fff with the corresponding 2 character language code and file number according to the following table definitions:

Character Language Code (File Number)

DA- DANISH (268)

DE - GERMAN (269)

DS - GERMAN/Swiss (270)

ES - SPANISH (271)

FI - FINNISH (272)

FR - FRENCH (273)

FS - FRENCH/Swiss (274)

IT - ITALIAN (275)

NL - DUTCH (276)

NO - NORWEGIAN (277)

PT - PORTUGUESE (278)

SV - SWEDISH (279)

• The $$ROOT member of your prefix.CNTL library contains an entry for each file that is in your install tape. Browse the $$ROOT member of your prefix. CNTL library, and search for the data set SAS.V245.$QDFxxL (note that xx is replaced by the language character code that you selected in the previous step). You should also find an entry that looks similar to the one below:

*========================

SS$QDFFIL=PUSL

TF$QDFFIL=SAS.V245.$QDFxxL ( references data set name)

LB$QDFFIL= (references file number)

VS$QDFFIL= (references volser)

CD$QDFFIL=LD

CP$QDFFIL=BA

CS$QDFFIL=UL

*=========================

Replace vvvvvv with the number listed beside the VS$QDFxxL= field.

• Change your.load.library to specify the data set name for the format/informat load modules.
• Replace disk with the unit type you are using for the load library data set.

//IEBCOPY JOB (account information), 'programmer',                                        <==VERIFY

// TIME=(m,s),MSGCLASS=a                                                                              <==VERIFY

//*

//COPY EXEC PGM=IEBCOPY

//SYSPRINT DD SYSOUT=*

//SYSUT3 DD UNIT=disk,SPACE=(TRK,(1,1))                                                     <==VERIFY

//SYSUT4 DD UNIT=disk,SPACE=(TRK,(1,1))                                                     <==VERIFY

//DDIN0 DD DSN=SAS.V245.$QDFxxL,DISP=OLD,UNIT=uuuu,                        <==VERIFY

// VOL=(,RETAIN,SER=vvvvvv),                                                                            <== VERIFY

// LABEL=(fff,SL,,,EXPDT=99365)                                                                         <==VERIFY

//DDOT0 DD DSN=your.load.library,DISP=(NEW,CATLG,DELETE),                <==VERIFY

// SPACE=(23476,(2700,450,200),,,ROUND),UNIT=disk                                       <==VERIFY

//SYSIN DD DATA,DLM'!I'

COPY INDD=((DDIN0,R)),OUTDD=DDOT0