== Macros:
== COMP srcfile1 srcfile2 Compiles, with the nolist option
== COMPP srcfile1 srcfile2 ... Compiles to $P.#srctype.srcfile
== COMPF srcfile1 srcfile2 ... Compiles to $dev2.TESTLST
== CK srcfile Checks your subvolumes.srcfile to TEST's
?SECTION set_SysIni MACRO
var CdVol \test.$dev2.TEST
var LstVol \test.$dev2.TESTLST
var SrcVol \test.$dev2.TESTSRC
[#case [#charget [#shiftstring SrcFile] 1 for 3]
|SUB| var TST_OBJ \test.$dev2.subobj.[SrcFile]O
var ObjVol \test.$dev2.subobj
var TST_REN \test.$dev2.OLDobj.[SrcFile]X
|otherwise| var TST_OBJ \test.$dev2.TESTOBJ.[SrcFile]O
var ObjVol \test.$dev2.TESTOBJ
var TST_REN \test.$dev2.OLDobj.[SrcFile]X
]
var TST_POBJ \test.$dev1.FEDROBJ.FED1
var ObeyVol_VOL \test.$dev1.TEST
?section doc macro
volume $dev2.TESTdoc
?section fil macro
volume $DEV4.TURBOFIL
?section blk macro
volume $dev2.TESTBLK
?section OB macro
echo volume $dev2.TESTOBEY
?section LIB macro
ECHO VOLUME $dev1.COPYSRC
?section LST macro
echo volume $dev2.TESTLST
?section SRC MACRO
[#if [#empty %1%] |then|
volume $dev2.TESTSRC
|else|
#set SrcFile %1%
set_SysIni
]
?SECTION ENF MACRO
echo VOLUME $dev2.TESTENF
?section gl macro
var SrcFile
echo edit $dev2.TESTlst.[SrcFile]S
?section ck macro
var SrcFile %1%
[#case [#charget [#shiftstring SrcFile] 1 for 1]
|N| fup info (%1%,dev1.COPYSRC.%1%)
|otherwise| fup info (%1%,$dev2.TESTSRC.%1%)
]
?SECTION Echoto MACRO
var EchoOut %1%
?section ECHO macro
#output %*%
%*%
?section var macro
[#if [#variableinfo/existence/ %1%] |else| #push %1%]
[#if [#empty %2%] |then| |else| #set %1% %2 to 99%]
?section FREEZE MACRO
var PcServer
var PcName
[#IF [#EMPTY %1%] |THEN|
|else|
#set PCServer %1%
]
[#IF [#EMPTY %1%] |THEN|
|else|
[#IF [#EMPTY %2%] |THEN|
var PcServer %1%
|else|
var PcName %1%
var PcServer %2%
]
]
[#if [#emptyv PcName] |then|
var PcName [#input Enter the Pathway System: ($MNTF):]
]
[#if [#emptyv PcServer] |then|
var PcServer [#input Enter the Pathway Server (TESTPOST-SERVER):]
]
PATHCOM [PcName];FREEZE [PCServer]
PATHCOM [PcName];STOP [PCServer]
PATHCOM [PcName];STOP [PCServer]
[#if [#empty %2%] |then| |else| FREEZE %2 TO 99%]
?section THAW MACRO
var PcServer
[#IF [#EMPTY %1%] |THEN|
|else|
#SET PCServer %1%
]
PATHCOM [PcName];THAW [PCServer]
[#if [#empty %3%] |then| |else| THAW %1% %3 TO 99%]
?section START MACRO
var PcServer
[#IF [#EMPTY %1%] |THEN|
|else|
#SET PCServer %1%
]
PATHCOM [PcName];START [PCServer]
[#if [#empty %3%] |then| |else| START %1% %3 TO 99%]
=======================
?section debugon macro
======================
[#IF [#EMPTY %1%] |THEN|
|else|
[#IF [#EMPTY %2%] |THEN|
var PcServer %1%
|else|
var PcName %1%
var PcServer %2%
]
]
[#if [#emptyv PcName] |then|
var PcName [#input Enter the Pathway System: ($MNTF):]
]
[#if [#emptyv PcServer] |then|
var PcServer [#input Enter the Pathway Server (TESTPOST-SERVER):]
]
#push me
#set me [#myterm]
freeze
echo pathcom [PcName];alter [PCServer],hometerm [me],debug on
thaw
#pop me
?section debugoff macro
=======================
var PcName %1%
var PcServer %2%
freeze
pathcom [PcName];alter [PCServer],hometerm $VHS,debug off
thaw
?section copy macro
fup dup %1%,%2%,saveall
fup secure %2%,"nnnn"
?section cinfo macro
var SrcFile
[#IF [#EMPTY %1%] |THEN|
|ELSE|
#SET SrcFile %1%
set_SysIni
]
fup/inline/
-- info $dev2.TESTSRC.[SrcFile]s
-- info $dev2.TESTOBJ.[SrcFile]o
-- exit
?section pout macro
#SET #INLINEPREFIX --
peruse /inline/$ppls
-- ll;le/out TESTlst.x/a;del
-- ll;le/out TESTlst.x/a;del
-- ll;le/out TESTlst.x/a;del
-- ll;le/out TESTlst.x/a;del
-- ll;le/out TESTlst.x/a;del
-- ll;le/out TESTlst.x/a;del
-- ll;le/out TESTlst.x/a;del
-- ll;le/out TESTlst.x/a;del
-- ll;le/out TESTlst.x/a;del
-- cqf/`/
-- dq/` /
-- cqa/`//a
-- e
?section fs alias
finddata
?section grep alias
finddata %*%
?section OK macro
[#case [#input RUN %*% (y)?] |y Y| echo %*% |otherwise|]
#output ---------------------------------------------
?SECTION PCLS MACRO
SPOOLCOM $SPLS;JOB (OWNER),DELETE !
SPOOLCOM $PPLS;JOB (OWNER),DELETE !
?SECTION SV MACRO
FUP SUBVOLS %*%
?section Type macro
fup copy %1%
?section p macro
[#if [#empty %1%] |then| peruse $PPLS |else| peruse $SPLX]
?SECTION INFODEFINE MACRO
#FRAME
#PUSH X1 X2 X3 X4
#SETMANY X1 X2 X3 X4,[#DEFINEINFO %1%]
#OUTPUT/HOLD/ADD DEFINE %1%
#OUTPUT/HOLD,COLUMN 25/,CLASS [X2]
#OUTPUT/COLUMN 40/,[X3] [X4]
#UNFRAME
[#if [#empty %2%] |then| |else| INFODEFINE %2 to 99%]
?SECTION CREATEDEFINES MACRO
PURGE XD
INFO/OUT XD/DEFINE =*
EDIT XD;DQN/=/;CQ/ Define Name / INFODEFINE /A;E
PURGE DEFINES
#PUSH #OUT
#SET #OUT DEFINES
O XD
#POP #OUT
EDIT DEFINES;DQ/INFODEFINE/;E
EDIT DEFINES
[#if [#empty %2%] |then| |else| INFODEFINE %2 to 99%]
?SECTION ST MACRO
[#IF [#EMPTY %1%]
|THEN| STATUS *,TERM
|ELSE| STATUS %*%
]
?SECTION DelY MACRO
[#IF [#FILEINFO/EXISTENCE/%1%] |THEN|
FILEINFO %1%
[#CASE [#INPUT Do you wish to delete this (y)?]
|y Y| purge %1%
|otherwise|
]
]
?SECTION FS ALIAS
FINDDATA
?SECTION CALC ALIAS
COMPUTE
?SECTION COMPARE macro
$dev2.jimobj.COMPARE %*%
?section PC MACRO
var PcName
[#if [#empty %1%]
|then| ECHO pathcom [PcName]
|else| #set PcName %*%
ECHO pathcom %*%]
?section OBJ MACRO
ECHO $dev2.TESTOBJ
?section TL macro
LOAD/KEEP 1/$dev2.TESTSRC.ZMACROS
?section GT macro
edit $dev2.TESTSRC.ZMACROS;set tabs 10 20 30 40 50 60 70;%1 TO 9%
?section R macro
var TST_OBJ
var Src
[#if [#empty %1%] |then| |else| SRC %1%]
ECHO RUN [TST_OBJ] %2 to 99%
?section RD macro
var TST_OBJ
[#if [#empty %1%] |then| |else| SRC %1%]
RUND [TST_OBJ]
?section DEFINESX macro
[#if [#empty %*%] |then| echo INFO DEFINE =* |ELSE| echo INFO DEFINE %*%]
?section CD macro
[#if [#empty %1%] |then| |else| Var CdVol %1%]
volume [CdVol]
?section G macro
var EditLastSrc %*%
EDIT;SET TABS 10 20 30 40 50 60 70;SET JOIN 80;G [EditLastSrc]
?section GS macro
var SrcFile %*%
EDIT;SET TABS 10 20 30 40 50 60 70;SET JOIN 80;G [SrcFile]S
?section O macro
var ObeyVol %1%
[#if [#emptyv ObeyVol] |then|
#output ([ObeyVol]) doesn't exist.
|else|
[#if [#fileinfo/existence/[ObeyVol]] |then|
#push Found
edit /OUTV Found,PRI 139/[ObeyVol] R;LB/?SECTION/RB/ ROUTINE/RN/*/;E
[#if [#linecount Found] > 2 |then|
echo T [ObeyVol]
|ELSE|
echo OBEY [ObeyVol]
]
#pop Found
|else|
#output The default Obey File hasn't been set yet. Try: O obeyfile
]
]
[#if [#empty %2%] |then| |else| O %2 to 99%]
?section BYE macro
========================
CSAVE
LOGOFF
?section CLOAD macro
========================
#PUSH WS_VOLUME
#SET WS_VOLUME [#DEFAULTS]
VOLUME
O DEFAULTS
VOLUME [WS_VOLUME]
#POP WS_VOLUME
?section CSAVE macro
========================
#push WS_VOLUME
#set WS_VOLUME [#DEFAULTS]
VOLUME
#FRAME
#PUSH #INLINEPREFIX
#SET #INLINEPREFIX --
edit/INLINE/DEFAULTS !
-- DQ ! F/L
-- na;100 /#set PCName [PCName]/
-- na;100 /#set PCServer [PCServer]/
-- na;100 /#set SrcFile [SrcFile]/
-- na;100 /#set ObeyVol [ObeyVol]/
-- na;100 /#set CdVol [CdVol]/
-- na;100 /#set SrcFile [SrcFile]/
-- na;100 /#set COut [COut]/
-- na;100 /#set EditLastSrc [EditLastSrc]/
-- na;100 /#set CdVol [CdVol]/
-- E
VOLUME [WS_VOLUME]
#UNFRAME
?section FILESPEC macro
[#if [#fileinfo /existence/ %1%] |then|
#output /hold/ [#fileinfo/fullname/ %1%]
#output /column 35,hold/
[#case [#fileinfo /filestructure/ %1%]
|0| #output /hold/ U:
|1| #output /hold/ R:
|2| #output /hold/ E:
|3| #output /hold/ K:
|otherwise| ]
#output /column 37,hold/ [#fileinfo/eof/ %1%]
#output /column 44,hold/&
[_CONTIME_TO_TEXT [#CONTIME [#fileinfo/modification/%1%]]]
#output /column 72,hold/ [#fileinfo/owner/ %1%]
|else|
#output /hold/ File %1% does not exist ]
#output
?section SCUPINFO macro
#frame
#push OUTLIST
SCUP /OUTV OUTLIST/INFO %*%
#output [#LINEGET OUTLIST 1 FOR 1]
#output [#LINEGET OUTLIST 5 FOR 1]
#unframe
?section CCOMPARE macro
=======================
var SrcFile %1%
set_SrcFile [SrcFile]
compare [SrcFile]s, $tech1d.source.[SrcFile]s
[#if [#empty %2%] |then| |else| CCOMPARE %2 to 99%]
?section set_SrcFile macro
=========================
var SrcFile %1%
set_SysIni
?section COMPF macro
=======================
var PrintFile file
COMP_CheckSrc %1%
[#if [#empty %2%] |then| |else| COMPF %2 TO 99%]
?SECTION CL ALIAS
COMPP
?section COMPP macro
=======================
var PrintFile print
COMP_CheckSrc %1%
[#if [#empty %2%] |then| |else| COMPP %2 TO 99%]
?SECTION CNL ALIAS
COMP
?section COMP macro
=======================
var PrintFile none
COMP_CheckSrc %1%
[#if [#empty %2%] |then| |else| COMP %2 TO 99%]
?section COMP_CheckSrc macro
=======================
[#IF [#FILEINFO/EXISTENCE/DEFINES] |THEN| O DEFINES]
set_SrcFile %1%
SET_SrcLanguage
[#case [PrintFile]
|file|
echo FUP PURGE $dev2.TESTLST.[SrcFile]!
#set PrintFile $dev2.TESTLST.[SrcFile]
|print|
echo SPOOLCOM $PPLS;JOB (LOC #[SrcLanguage].[SrcFile]),DELETE!
#set PrintFile $P.#[SrcLanguage].[SrcFile]
|otherwise| #set PrintFile
]
[#case [SrcLanguage]
|SQL| COMP_SQL
|SCOBOL| COMP_SCOBOL
|C| COMP_C
|TAL| COMP_TAL
|otherwise| >>>> Can't Compile [SrcFile]
]
?section SET_SrcLanguage macro
var SrcFile
#push TMP_SRC TMP_OBJ
[#if [#fileinfo/existence/ [SrcFile]S] |then|
#set TMP_SRC [SrcFile]S
#set TMP_OBJ [SrcFile]O
|else|
[#if [#fileinfo/existence/ [SrcFile]] |then|
#set TMP_SRC [SrcFile]
#set TMP_OBJ [SrcFile]
]
]
[#if [#empty [TMP_SRC]]
|then|
#output Cannot locate [SrcFile]
|else|
CheckSource [TMP_SRC] [TMP_OBJ]
]
#pop TMP_SRC
?section CheckSource macro
==========================
var SrcLanguage SQL
#push Found
edit /OUTV Found,PRI 139/%1% R;LB/ SCREEN /RB/ SECTION/RN/*/;E
[#if [#linecount Found] > 2 |then| #SET SrcLanguage SCOBOL ]
#pop Found
#push Found
edit /OUTV Found,PRI 139/%1% R;LB/ $SYSTEM.SYSTEM.EXTDECS/;E
[#if [#linecount Found] > 2 |then| #SET SrcLanguage TAL ]
#pop Found
#push Found
edit /OUTV Found,PRI 139/%1% R;LB/#include/r/[#if [#linecount Found] > 2 |then| #SET SrcLanguage C ]
#pop Found
#output ------ SOURCE IS [SrcLanguage]
#push Found
#set Found %1%
[#case [#charget [#shiftstring Found] 1 for 1]
|N| SrcLanguage
|otherwise|
]
#pop Found
?section COMP_SCOBOL macro
#OUTPUT ------------------------ SCOBOL ------------------------------
#PUSH MYS
#SET MYS [#FILEINFO/VOLUME/[SrcFile]S].[#FILEINFO/SUBVOL/[SrcFile]S]
echo VOLUME $dev1.COPYSRC
[#IF [#EMPTYV PrintFile] |THEN|
echo SCOBOLX/IN [MYS].[SrcFile]S/[TST_POBJ];NOLIST
|ELSE|
echo SCOBOLX/IN [MYS].[SrcFile]S,OUT [PrintFile]/[TST_POBJ]
]
[#IF (_COMPLETION:COMPLETIONCODE > 1) |THEN|
#OUTPUT **** ERROR **** CHECK %1%
]
ECHO VOLUME [MYS]
#POP MYS
#OUTPUT --------------------------------------------------------------
?section COMP_TAL macro
=========================
#push MYS
#set MYS [#FILEINFO/VOLUME/[SrcFile]S].[#FILEINFO/SUBVOL/[SrcFile]S]
echo VOLUME $dev1.COPYSRC
#output ------------------------------------------------------------ TAL BEG
[#IF [#EMPTYV PrintFile] |THEN|
echo TAL/IN [MYS].[SrcFile]S/[TST_OBJ];RUNNABLE;NOLIST
|ELSE|
echo TAL/IN [MYS].[SrcFile]S/[TST_OBJ];RUNNABLE
echo TAL/IN [MYS].[SrcFile]S,OUT [PrintFile]/[TST_POBJ]
]
[#IF (_COMPLETION:COMPLETIONCODE > 1) |THEN|
#OUTPUT **** ERROR **** CHECK %1%
]
echo VOLUME [MYS]
#pop MYS
#output ------------------------------------------------------------ TAL END
?section COMP_C macro
=========================
#PUSH MYS
#push MYS
#set MYS [#FILEINFO/VOLUME/[SrcFile]S].[#FILEINFO/SUBVOL/[SrcFile]S]
echo VOLUME $dev1.COPYSRC
#output -------------------------------------------------------------- C BEG
[#IF [#EMPTYV PrintFile] |THEN|
echo C/IN [MYS].[SrcFile]S/[TST_OBJ];RUNNABLE,NOLIST
|ELSE|
echo C/IN [MYS].[SrcFile]S,OUT [PrintFile]/[TST_OBJ];RUNNABLE,NOLIST
]
[#IF (_COMPLETION:COMPLETIONCODE > 1) |THEN|
#OUTPUT **** ERROR **** CHECK %1%
]
ECHO VOLUME [MYS]
#POP MYS
#output -------------------------------------------------------------- C END
?SECTION COMP_SQL MACRO
=======================
#PUSH MYS
#push MYS
#set MYS [#FILEINFO/VOLUME/[SrcFile]S].[#FILEINFO/SUBVOL/[SrcFile]S]
echo VOLUME $dev1.COPYSRC
echo PARAM SYMBOL-BLOCKS 8
[#IF [#fileinfo/existence/ [TST_REN]] |then|
ECHO SQLCI;PURGE [TST_REN] !;EXIT]
[#IF [#fileinfo/existence/ [TST_OBJ]] |then|
ECHO SQLCI;FUP RENAME [TST_OBJ],[TST_REN];EXIT]
#output ---------------------------------------------------------COBOL85 BEG
[#IF [#EMPTYV PrintFile] |THEN|
echo COBOL85/IN [MYS].[SrcFile]S/[TST_OBJ];nolist;SUPPRESS;ENV COMMON
|else|
echo cobol85/IN [MYS].[SrcFile]S,OUT [PrintFile]/[TST_OBJ];ENV COMMON
]
ECHO VOLUME [MYS]
[#IF (_COMPLETION:COMPLETIONCODE > 1) |THEN|
#OUTPUT **** COBOL85 ERROR ****
|ELSE|
#OUTPUT ---- COBOL85 SUCCESSFULL
#output ---------------------------------------------------------COBOL85 END
COMP_SQLCOMP %1%
]
?SECTION COMP_SQLCOMP MACRO
===========================
#PUSH LstVol
#output -------------------------------------------------------- SQLCOMP BEG
echo SQLCOMP/IN [TST_OBJ],OUTV LstVol/CATALOG $DEV3.MISCCATL
[#IF ([#LINEFIND LstVol 1 No SQL source ]>0) |THEN|
#OUTPUT Sql Compiling is not needed for this program
|ELSE|
[#IF (_COMPLETION:COMPLETIONCODE < 0) |THEN|
#OUTPUT *** SQLCOMP WARNING *** CHECK $P.#COBOL.[SrcFile]
#PUSH #OUT
#SET #OUT $P.#SQLCOMP.[SrcFile]
#OUTPUTV LstVol
#POP #OUT
|ELSE|
[#IF (_COMPLETION:COMPLETIONCODE > 1) |THEN|
#OUTPUT **** SQLCOMP ERROR **** CHECK $P.#SQLCOMP.[SrcFile]
#PUSH #OUT
#SET #OUT $P.#SQLCOMP.[SrcFile]
#OUTPUTV LstVol
#POP #OUT
|ELSE|
#output SQLCOMP successful: [_COMPLETION:COMPLETIONCODE]
#PUSH #OUT
#SET #OUT $P.#SQLCOMP.[SrcFile]
#OUTPUTV LstVol
#POP #OUT
] ] ]
#output -------------------------------------------------------- SQLCOMP END
#POP LstVol
?SECTION PRINT MACRO
FUP COPY %1%,$P
[#if [#empty %2%] |then| |else| PRINT %2 to 99%]
?SECTION SQCOST MACRO
SQLCOMP/IN $dev2.TESTOBJ.%1%,OUT $P.#SQCOST/ &
STOREDDEFINES EXPLAIN PLAN NORECOMPILE
?section LOG macro
[#if [#empty %1%] |then|
EDIT $dev2.TEST.LOG2009;XVS L-20;E
|else|
#frame
#push #out
#set #width 230
#push wYY wMM wDD wHH wMI
#setmany wYY wMM wDD wHH wMI, [#contime [#timestamp]]
[#IF [wYY]< 10 |THEN| #SET wYY 0[wYY]]
[#IF [wMM]< 10 |THEN| #SET wMM 0[wMM]]
[#IF [wDD]< 10 |THEN| #SET wDD 0[wDD]]
[#IF [wHH]< 10 |THEN| #SET wHH 0[wHH]]
[#IF [wMI]< 10 |THEN| #SET wMI 0[wMI]]
#set #out $dev2.TEST.LOG[wYY]
#output [wMM]/[wDD]/[wYY] [wHH]:[wMI]-> %*%
#set #width 80
#pop #out
#unframe
]
?section dir ALIAS
fileinfo
?section sv macro
fup subvols %1%
?SECTION CLS MACRO
#FRAME
[#DEF ascii STRUCT
BEGIN
BYTE byt5(0:1)
value 27 73;
CHAR clr(0:1)
redefines byt5;
END;
]
#OUTPUT [ascii:clr(0:1)]
#UNFRAME
?section tt macro
var tfile %1%
t [tfile]
?section file macro
volume $dev2.testfile
|
This site was written for Las Vegas, then LouisVille. Now, it seems to be about anywhere. In these phlogs, you'll see a lot of my personal notes and pictures. I like to post my observations here to remember life and celebrate it. I'm not religious. I don't pray for good fortune. I'm ecstatically grateful for the gift of life and I think our time should be remembered and not taken for granted. I'm not a writer. I think pictures tell stories so much better than words. I love just about everything in this life, and, I guess that would have to include you. So, if you've seen me, don't be surprised if your picture is in here somewhere. Of all the critters, people are absolutely the most interesting. 
After extensive gene therapy at Sensadyn Labs, 
