PROC 0
GLOBAL R1 R2 R3
WRITE
WRITE
WRITE DID YOU REMEMBER TO LOGON WITH: USERID SIZE(2048) ?
WRITE   (THE DEFAULT SIZE IS NOT ADEQUATE; IF YOU DIDN'T,
WRITE    THEN LOGOFF AND START OVER!!!)
WRITENR DO YOU WISH TO PROCEED WITH THIS CLIST? :
READ &ANSWER
IF &STR(&ANSWER) NE &STR(YES) THEN EXIT
WRITE
WRITE
WRITE BEFORE BEGINNING WORK, YOU MUST SPECIFY THE INPUT AND OUTPUT
WRITE    DATASETS (BUT OMIT YOUR USERID).
WRITE
WRITENR NAME OF THE CONTROL-PARAMETER FILE (INFILE?):
READ &INFILE
IF &STR(&INFILE) EQ THEN SET &INFILE = &STR(INFILE)
IFREE FT04F001
ALLOCATE DATASET(&INFILE) FILE(FT04F001) SHR
Q3: WRITENR NAME OF THE FINITE-ELEMENT RESULTS FILE (E.G., T8911A30):
READ &FT08F001
IF &STR(&FT08F001) EQ THEN -
WRITE YOU MUST SELECT A SEQUENTIAL DATASET FROM YOUR CATALOG:
IF &STR(&FT08F001) EQ THEN LISTCAT
IF &STR(&FT08F001) EQ THEN GOTO Q3
IFREE FT08F001
ALLOCATE DATASET(&FT08F001) FILE(FT08F001) SHR
WRITENR NAME FOR THE RESULTS OF EDITING (E.G., U8911A30; OPTIONAL):
READ &FT09F001
IF &STR(&FT09F001) EQ THEN GOTO Q5
IFREE FT09F001
ALLOCATE DATASET(&FT09F001) LIKE(&FT08F001) FILE(FT09F001)
Q5: WRITENR NAME OF GEOGRAPHIC BASEMAP FILE (BASENA0?):
READ &FT11F001
IF &STR(&FT11F001) EQ THEN SET &FT11F001 = &STR(BASENA0)
IFREE FT11F001
ALLOCATE DATASET(&FT11F001) FILE(FT11F001) SHR
WRITE
IFREE SYSCP
ALLOCATE DATASET('APP1.GDDM4.LOAD') FILE(SYSCP) SHR
IFREE ADMSYMBL
ALLOCATE DATASET('APP5.GDDM4.SYMBOL') FILE(ADMSYMBL) SHR
WRITE
WRITE NOW BE PATIENT; SETUP TAKES ABOUT A MINUTE.
WRITE AFTER THAT, YOU WILL SEE A MENU OF COMMANDS.
WRITE REMEMBER TO USE COMMAND "Q" TO QUIT AND RETURN TO TSO
WRITE
WRITENR USE ENTER TO PROCEED, OR ANY CHARACTER TO EXIT:
READ &ANSWER
IF &STR(&ANSWER) EQ THEN -
RUNGDDM FIXERMOD(FIX)