PROC 0 GLOBAL R1 R2 R3 WRITE WRITE WRITE DID YOU REMEMBER TO LOGON WITH: USERID SIZE(3000) ? 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 (IN9003?): READ &INFILE IF &STR(&INFILE) EQ THEN SET &INFILE = &STR(IN9003) IFREE FT07F001 ALLOCATE DATASET(&INFILE) FILE(FT07F001) SHR WRITENR NAME OF THE FINITE-ELEMENT GRID FILE (CORD11N?): READ &FT08F001 IF &STR(&FT08F001) EQ THEN SET &FT08F001 = &STR(CORD11N) IFREE FT08F001 ALLOCATE DATASET(&FT08F001) FILE(FT08F001) SHR WRITENR NAME OF GEOGRAPHIC BASEMAP FILE (BASEMAP?): READ &FT11F001 IF &STR(&FT11F001) EQ THEN SET &FT11F001 = &STR(BASEMAP) IFREE FT11F001 ALLOCATE DATASET(&FT11F001) FILE(FT11F001) SHR B1: WRITENR NAME OF THE BLOCK-DATA FORTRAN FILE (NORTH90A?): READ &BLOCKIN IF &STR(&BLOCKIN) EQ THEN WRITE YOU MUST CHOOSE A FILE! IF &STR(&BLOCKIN) EQ THEN WRITE HERE IS A LIST OF ALL YOUR FILES.... IF &STR(&BLOCKIN) EQ THEN LISTCAT IF &STR(&BLOCKIN) EQ THEN GOTO B1 WRITE WRITE WRITE COMPILING BLOCK DATASET AND LINKING WITH MAPMOD(MAP)... WRITE WRITE FORTV &BLOCKIN DELETE MAPGOMOD LINKGDDM 'EFF9GPB.&BLOCKIN..OBJ' LOAD(MAPGOMOD(GO))- LIB(MAPMOD(MAP)) DELETE 'EFF9GPB.&BLOCKIN..OBJ' IFREE FT03F001 ALLOCATE DATASET(&BLOCKIN) FILE(FT03F001) WRITE WRITENR NAME FOR THE NEW BLOCK DATA FILE (E.G.,NORTH90B,OPTIONAL): READ &FT04F001 IF &STR(&FT04F001) EQ THEN GOTO READY IFREE FT04F001 ALLOCATE DATASET(&FT04F001) LIKE(&BLOCKIN) FILE(FT04F001) READY:WRITE B2: WRITENR NAME OF THE CONSTRUCTION-LINES FILE (E.G.,NCONST27): READ &FT01F001 IF &STR(&FT01F001) EQ THEN WRITE YOU MUST CHOOSE A FILE! IF &STR(&FT01F001) EQ THEN WRITE HERE IS A LIST OF ALL YOUR FILES.... IF &STR(&FT01F001) EQ THEN LISTCAT IF &STR(&FT01F001) EQ THEN GOTO B2 IFREE FT01F001 ALLOCATE DATASET(&FT01F001) FILE(FT01F001) WRITENR NAME FOR THE NEW CONSTRUCTION-LINES FILE(E.G.,NCONST28,OPTIONAL): READ &FT02F001 IF &STR(&FT02F001) EQ THEN GOTO B3 IFREE FT02F001 ALLOCATE DATASET(&FT02F001) LIKE(&FT01F001) FILE(FT02F001) B3: 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 YOU SEE THE RED STATUS MESSAGES, PRESS ENTER. 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 MAPGOMOD(GO)