/* REXX -- converted to REXX on 1994/06/03 */ ADDRESS "ISREDIT" "MACRO (TOKEN)" /* FIXPI: Fix SCRIPT ".PI " to mixed Upper/lowercase will */ /* change all ".PI " entries, recommend use only once */ /* after initial creation of .PI entries. */ /* Author: David McRitchie, "The REXX Macros Toolbox" */ /* Options: none -- affects entire member in edit */ /* NOT TO BE USED WITHIN A MACRO -- BY DESIGN */ /* because will changeletter case of all .PI */ /* Changed so that will not change letter case of all */ /* unless used with FIRSTTIME option. */ /* ==========================================. */ /* Capitalize First Letter of each Word */ "LOC 0" "Caps off" /* if it was not it should be */ "Exclude ALL" "Find 1 '.pi ' ALL" "Find 1 '.th .pi ' ALL" "Find 1 '.el .pi ' ALL" IF "FIRSTTIME" = "translate(TOKEN)" THEN DO "Change ALL NX P'>' P'<'" "Change ALL NX PREFIX P'<' P'>'" END /* ================================================================ */ /* Non-JCL Terminology */ "c all nx word 'ahc' 'AHC'" "c all nx word 'ahf' 'AHF'" "c all nx word 'american' 'American'" "c all nx word 'apex' 'APEX'" "c all nx word 'apxctl' 'APXCTL'" "c all nx word 'autotab' 'AUTOTAB'" "c all nx word 'bms' 'BMS'" "c all nx word 'bul' 'bul'" "c all nx word 'cics' 'CICS'" "c all nx word 'cis' 'CIS'" "c all nx word 'cobol' 'COBOL'" "c all nx word 'com' 'COM'" "c all nx word 'corporation' 'Corporation'" "c all nx word 'dave' 'Dave'" "c all nx word 'david' 'David'" "c all nx word 'dbc' 'DBD'" "c all nx word 'dc' 'DC'" "c all nx word 'dd/ds' 'DD/DS'" "c all nx word 'dl/i' 'DL/I'" "c all nx word 'dms' 'DMS'" "c all nx word 'dpf' 'PCF'" "c all nx word 'ims' 'IMS'" "c all nx word 'john' 'John'" "c all nx word 'mcritchie' 'McRitchie'" "c all nx word 'mfs' 'MFS'" "c all nx word 'mrcs' 'MRCS'" "c all nx word 'new jersey' 'New Jersey'" "c all nx word 'nj' 'NJ'" "c all nx word 'os' 'OS'" "c all nx word 'pc' 'PC'" "c all nx word 'pcb' 'PCB'" "c all nx word 'pl/i' 'PL/I'" "c all nx word 'pl/1' 'PL/I'" "c all nx word 'psb' 'PSB'" "c all nx word 'scharwath' 'Scharwath'" "c all nx word 'sdb' 'SDB'" "c all nx word 'sdlc' 'SDLC'" "c all nx word 'virginia' 'Virginia'" "c all nx word 'vsam' 'VSAM'" "c all nx word 'wind' 'Wind'" /* ==========================================. */ /* Mostly JCL Terminology */ /* JCL and other terms for complete capitalization */ /* that do not interfer with other usages e.g. does not include SPACE*/ "CHANGE all word nx 'autotab' AUTOTAB" "CHANGE all word nx 'blksiz' BLKSIZ" "CHANGE all word nx 'cyl' CYL" "CHANGE all word nx 'dasd' DASD" "CHANGE all word nx 'dms' DMS" "CHANGE all word nx 'dcb' DCB" "CHANGE all word nx 'fb' FB" "CHANGE all word nx 'fbs' FBS" "CHANGE all word nx 'ibm' IBM" "CHANGE all word nx 'ifps' IFPS" "CHANGE all word nx 'jcl' JCL" "CHANGE all word nx 'jes' JES" "CHANGE all word nx 'mvs/xa' 'MVS/XA'" "CHANGE all word nx 'mvs' MVS" "CHANGE all word nx 'pdf' PDF" "CHANGE all word nx 'pds' PDS" "CHANGE all word nx 'racf' RACF" "CHANGE all word nx 'recfm' RECFM" "CHANGE all word nx 'sas' SAS" "CHANGE all word nx 'smp' SMP" "CHANGE all word nx 'trk' TRK" "CHANGE all word nx 'tlms' TLMS" "CHANGE all word nx 'tso' TSO" "CHANGE all word nx 'vb' VB" "CHANGE all word nx 'vbs' VBS" "CHANGE all word nx 'vspc' VSPC" "CHANGE all word nx 'xa' XA" "CHANGE all word nx t'tsomodel.public.text' c'TSOMODEL.PUBLIC.TEXT'" "CHANGE all nx 'info0' 'INFO0'" /* ==========================================. */ /* ******* for .PI entries only ********** */ /* ******* for .PI entries only ********** */ /* ******* for .PI entries only ********** */ /* ******* for .PI entries only ********** */ "Change ALL NX easytrieve EASYTRIEVE" /* **.......Improve single word PI entries .** */ "Change ALL NX 6 p'@@@ ' p'>>> '" "Change ALL NX 6 p'@@@@ ' p'>>>> '" "Change ALL NX 6 p'@@@@@ ' p'>>>>> '" /* **.......Some words in .PI s/b lowercase.** */ "Change ALL NX x'50' 'and' word" "Change ALL NX 'and' 'and' word" "Change ALL NX 'the' 'the' word" "Change ALL NX 'from' 'from' word" "Change ALL NX 'of' 'of' word" /* **.......Put .PI back to normal form.....** */ "Change ALL NX 1 c'.pi ' '.pi '" "Change ALL NX 1 '.th .PI ' '.th .pi '" "Change ALL NX 1 '.el .PI ' '.el .pi '" /* **............Label all NX lines.........** */ "labnx" /* ******* for .PI entries only ********** */ /* ******* for .PI entries only ********** */ /* ==========================================. */ /*==. */ Exit 0 /*==. */ /* ==========================================. */ /* If sentences occur in .PI they already */ /* were capitalized for first word in sentence */ "CHANGE all nx '. a' '. A'" "CHANGE all nx '. b' '. B'" "CHANGE all nx '. c' '. C'" "CHANGE all nx '. d' '. D'" "CHANGE all nx '. e' '. E'" "CHANGE all nx '. f' '. F'" "CHANGE all nx '. g' '. G'" "CHANGE all nx '. h' '. H'" "CHANGE all nx '. i' '. I'" "CHANGE all nx '. j' '. J'" "CHANGE all nx '. k' '. K'" "CHANGE all nx '. l' '. L'" "CHANGE all nx '. m' '. M'" "CHANGE all nx '. n' '. N'" "CHANGE all nx '. o' '. O'" "CHANGE all nx '. p' '. P'" "CHANGE all nx '. q' '. Q'" "CHANGE all nx '. r' '. R'" "CHANGE all nx '. s' '. S'" "CHANGE all nx '. t' '. T'" "CHANGE all nx '. u' '. U'" "CHANGE all nx '. v' '. V'" "CHANGE all nx '. w' '. W'" "CHANGE all nx '. x' '. X'" "CHANGE all nx '. y' '. Y'" "CHANGE all nx '. z' '. Z'" "LOC 0"