CONTROL ASIS /* TITLE: PINXDOIT make up .PI entries from scratch /* USERS: TSO ISPF EDIT USERS | SCRIPT USERS */ /* CONTRIBUTED: 1986/05/10 DAVID MCRITCHIE */ /* */ /* EXAMPLE: PINXDOIT BASE */ /* */ /* DOCUMENTED: IS03.SHARE.TEXT(PINXDOIT) */ /* */ /* OPTIONS: */ /* There are no label options, */ /* this clist will process all NX lines. */ /* /* 1) BASE -- start from scratch /* '.pi /' changed to '.pi º' /* f all ':h' /* PINX CLIST IS INVOKED /* 2) START -- Make '.*--.PIº' entries active /* make appropriate changes to &GML. & appearing in NX entries /* Capitalize first letter after "º" /* 3) REDO -- default /* 4) You are ready/not ready to use PIR ISREDIT MACRO (OPTION) IF &SYSCAPS(&STR(&OPTION)) = BASE THEN GOTO BASE ISREDIT SEEK FIRST X ' ' IF &LASTCC ^= 0 THEN DO SET &ZEDSMSG = &STR(PINXDOIT NX ONLY) SET RP = &STR()) SET &ZEDLMSG = &STR(NOT SET UP FOR CREATING ".PI" READ IS03.SHARE.TEXT(PINXDOIT&RP.) ISPEXEC SETMSG MSG(ISRZ000) EXIT CODE(12) END IF &SYSCAPS(&STR(&OPTION)) = &STR() THEN GOTO REDO IF &SYSCAPS(&STR(&OPTION)) = REDO THEN GOTO REDO IF &SYSCAPS(&STR(&OPTION)) = START THEN GOTO START GOTO REDO /* This code will normally be bypassed *******/ BASE: - ISREDIT x all ISREDIT f '.pi /' 1 all ISREDIT c all nx '/' 'º' ISREDIT x all ISREDIT f ':h' all ISREDIT PINX START: - ISREDIT x 1 ':' all ISREDIT c all nx '/' 'º' ISREDIT c all nx '.*--.piº' '.pi º' ISREDIT c all nx '.*--.pi º' '.pi º' ISREDIT c all nx '&&&&gml. ' 'º' ISREDIT c all nx '&&&&gml.' 'º' ISREDIT c all nx ': ' 'º' ISREDIT c all nx ':' 'º' ISREDIT c all nx ' alarm ' 'ºalarm ' ISREDIT c all nx 'ºalarm ' 'ºalarmº' ISREDIT c all nx 'ºdetection circuit ' 'ºdetectionºcircuit ' ISREDIT c all nx 'º3084 ' '3084º' ISREDIT c all nx 'º4361 ' '4361º' ISREDIT c all nx ' &&&& ' 'and ' ISREDIT CHANGE all nx word 'AHC' AHC ISREDIT CAPS OFF /* proper names ISREDIT CHANGE all nx 'ºa' 'ºA' ISREDIT CHANGE all nx 'ºb' 'ºB' ISREDIT CHANGE all nx 'ºc' 'ºC' ISREDIT CHANGE all nx 'ºd' 'ºD' ISREDIT CHANGE all nx 'ºe' 'ºE' ISREDIT CHANGE all nx 'ºf' 'ºF' ISREDIT CHANGE all nx 'ºg' 'ºG' ISREDIT CHANGE all nx 'ºh' 'ºH' ISREDIT CHANGE all nx 'ºi' 'ºI' ISREDIT CHANGE all nx 'ºj' 'ºJ' ISREDIT CHANGE all nx 'ºk' 'ºK' ISREDIT CHANGE all nx 'ºl' 'ºL' ISREDIT CHANGE all nx 'ºm' 'ºM' ISREDIT CHANGE all nx 'ºn' 'ºN' ISREDIT CHANGE all nx 'ºo' 'ºO' ISREDIT CHANGE all nx 'ºp' 'ºP' ISREDIT CHANGE all nx 'ºq' 'ºQ' ISREDIT CHANGE all nx 'ºr' 'ºR' ISREDIT CHANGE all nx 'ºs' 'ºS' ISREDIT CHANGE all nx 'ºt' 'ºT' ISREDIT CHANGE all nx 'ºu' 'ºU' ISREDIT CHANGE all nx 'ºv' 'ºV' ISREDIT CHANGE all nx 'ºw' 'ºW' ISREDIT CHANGE all nx 'ºx' 'ºX' ISREDIT CHANGE all nx 'ºy' 'ºY' ISREDIT CHANGE all nx 'ºz' 'ºZ' ISREDIT CHANGE all nx word &LABF. &LABL. 'ahc' AHC ISREDIT CHANGE all nx word &LABF. &LABL. 'american' 'American' ISREDIT CHANGE all nx word &LABF. &LABL. 'autotab' AUTOTAB ISREDIT CHANGE all nx word &LABF. &LABL. 'corporation' 'Corporation' ISREDIT CHANGE all nx word &LABF. &LABL. 'dave' 'Dave' ISREDIT CHANGE all nx word &LABF. &LABL. 'david' 'David' ISREDIT CHANGE all nx word &LABF. &LABL. 'john' 'John' ISREDIT CHANGE all nx word &LABF. &LABL. 'mcritchie' 'McRitchie' ISREDIT CHANGE all nx word &LABF. &LABL. 'new jersey' 'New Jersey' ISREDIT CHANGE all nx word &LABF. &LABL. 'os' 'OS' ISREDIT CHANGE all nx word &LABF. &LABL. 'nj' 'NJ' ISREDIT CHANGE all nx word &LABF. &LABL. 'scharwath' 'Scharwath' ISREDIT CHANGE all nx word &LABF. &LABL. 'virginia' 'Virginia' ISREDIT CHANGE all nx word &LABF. &LABL. 'wind' 'Wind' /* JCL and other terms for complete capitalization /*that do not interfer with other usages e.g. does not include SPACE ISREDIT CHANGE all nx prefix &LABF. &LABL. 'ahiv2' AHIV2 ISREDIT CHANGE all nx word &LABF. &LABL. 'autotab' AUTOTAB ISREDIT CHANGE all nx word &LABF. &LABL. 'blksiz' BLKSIZ ISREDIT CHANGE all nx word &LABF. &LABL. 'cyl' CYL ISREDIT CHANGE all nx word &LABF. &LABL. 'dasd' DASD ISREDIT CHANGE all nx word &LABF. &LABL. 'dms' DMS ISREDIT CHANGE all nx word &LABF. &LABL. 'dcb' DCB ISREDIT CHANGE all nx word &LABF. &LABL. 'fb' FB ISREDIT CHANGE all nx word &LABF. &LABL. 'fbs' FBS ISREDIT CHANGE all nx word &LABF. &LABL. 'ibm' IBM ISREDIT CHANGE all nx word &LABF. &LABL. 'ims' IMS ISREDIT CHANGE all nx word &LABF. &LABL. 'ifps' IFPS ISREDIT CHANGE all nx word &LABF. &LABL. 'jcl' JCL ISREDIT CHANGE all nx word &LABF. &LABL. 'jes' JES ISREDIT CHANGE all nx word &LABF. &LABL. 'mvs/xa' 'MVS/XA' ISREDIT CHANGE all nx word &LABF. &LABL. 'mvs' MVS ISREDIT CHANGE all nx word &LABF. &LABL. 'pcms' PCMS ISREDIT CHANGE all nx word &LABF. &LABL. 'p.c.m.s' P.C.M.S ISREDIT CHANGE all nx word &LABF. &LABL. 'pdf' PDF ISREDIT CHANGE all nx word &LABF. &LABL. 'pds' PDS ISREDIT CHANGE all nx word &LABF. &LABL. 'recfm' RECFM ISREDIT CHANGE all nx word &LABF. &LABL. 'sas' SAS ISREDIT CHANGE all nx word &LABF. &LABL. 'smf' SMF ISREDIT CHANGE all nx word &LABF. &LABL. 'smp' SMP ISREDIT CHANGE all nx word &LABF. &LABL. 'trk' TRK ISREDIT CHANGE all nx word &LABF. &LABL. 'tlms' TLMS ISREDIT CHANGE all nx word &LABF. &LABL. 'tso' TSO ISREDIT CHANGE all nx word &LABF. &LABL. 'vb' VB ISREDIT CHANGE all nx word &LABF. &LABL. 'vbs' VBS ISREDIT CHANGE all nx word &LABF. &LABL. 'vspc' VSPC ISREDIT CHANGE all nx word &LABF. &LABL. 'xa' XA ISREDIT CHANGE all nx word &LABF. &LABL. t'tsomodel.public' c'TSOMODEL.PUBLIC' ISREDIT CHANGE all nx &LABF. &LABL. 'info0' 'INFO0' /* Sentence beginning -- period - two spaces - letter ISREDIT CHANGE all nx &LABF. &LABL. '. a' '. A' ISREDIT CHANGE all nx &LABF. &LABL. '. b' '. B' ISREDIT CHANGE all nx &LABF. &LABL. '. c' '. C' ISREDIT CHANGE all nx &LABF. &LABL. '. d' '. D' ISREDIT CHANGE all nx &LABF. &LABL. '. e' '. E' ISREDIT CHANGE all nx &LABF. &LABL. '. f' '. F' ISREDIT CHANGE all nx &LABF. &LABL. '. g' '. G' ISREDIT CHANGE all nx &LABF. &LABL. '. h' '. H' ISREDIT CHANGE all nx &LABF. &LABL. '. i' '. I' ISREDIT CHANGE all nx &LABF. &LABL. '. j' '. J' ISREDIT CHANGE all nx &LABF. &LABL. '. k' '. K' ISREDIT CHANGE all nx &LABF. &LABL. '. l' '. L' ISREDIT CHANGE all nx &LABF. &LABL. '. m' '. M' ISREDIT CHANGE all nx &LABF. &LABL. '. n' '. N' ISREDIT CHANGE all nx &LABF. &LABL. '. o' '. O' ISREDIT CHANGE all nx &LABF. &LABL. '. p' '. P' ISREDIT CHANGE all nx &LABF. &LABL. '. q' '. Q' ISREDIT CHANGE all nx &LABF. &LABL. '. r' '. R' ISREDIT CHANGE all nx &LABF. &LABL. '. s' '. S' ISREDIT CHANGE all nx &LABF. &LABL. '. t' '. T' ISREDIT CHANGE all nx &LABF. &LABL. '. u' '. U' ISREDIT CHANGE all nx &LABF. &LABL. '. v' '. V' ISREDIT CHANGE all nx &LABF. &LABL. '. w' '. W' ISREDIT CHANGE all nx &LABF. &LABL. '. x' '. X' ISREDIT CHANGE all nx &LABF. &LABL. '. y' '. Y' ISREDIT CHANGE all nx &LABF. &LABL. '. z' '. Z' ISREDIT CHANGE ALL NX &LABF. &LABL. 'ºº' 'º' ISREDIT CHANGE ALL NX &LABF. &LABL. 'ºº' 'º' REDO: - ISREDIT F all nx "*" IF &LASTCC = 0 THEN GOTO NOTYET ISREDIT F all nx "/" IF &LASTCC = 0 THEN GOTO NOTYET ISREDIT F all nx "+" IF &LASTCC = 0 THEN GOTO NOTYET ISREDIT F all nx "-" IF &LASTCC = 0 THEN GOTO NOTYET ISREDIT F all nx "&&&&" IF &LASTCC = 0 THEN GOTO NOTYET ISREDIT F all nx "'" IF &LASTCC = 0 THEN GOTO NOTYET ISREDIT F all nx ":" IF &LASTCC = 0 THEN GOTO NOTYET ISREDIT F all nx '"' IF &LASTCC = 0 THEN GOTO NOTYET SET &ZEDSMSG = &STR(DATA READY FOR PIR) SET &ZEDLMSG = &STR(No Arithmetic symbols, or ":" left in DISPLAY) ISPEXEC SETMSG MSG(ISRZ000) EXIT CODE(0) NOTYET: - SET I = 1 SET &ZEDSMSG = &STR(Fix Data/RFIND) SET &ZEDLMSG = &STR(ARITHMETIC SYMBOLS, or ":" exit in DISPLAY) ISPEXEC SETMSG MSG(ISRZ000) EXIT CODE(4)