The following example illustrates the creation of SMART Tables and Super Globals:
MEM-OVERWRITE=Y
|
ADD-GLOBAL=Y
|
DOCLIB=SUPER.GLOBAL.DOCLIB SUPER GLOBAL
|
APPL=SUPER-GLOBAL-APPL SUPER GLOBAL
|
ONPGM SUPER GLOBAL
|
STEP=ANYSTEP SUPER GLOBAL
|
CODES=C0008 SUPER GLOBAL
|
DO=COND SUPER GLOBAL
|
CONDS=(SUPER-GLOBAL-COND,ODAT,+) SUPER GLOBAL
|
TABLE=@INITJOB
|
OWNER=GLBLOWN
|
SCHEDULE-RBC=X
|
ADJUST-CONDS=Y
|
PRIORITY=GL
|
MEMLIB=GLBL-MEMLIB
|
APPL=GLOBAL-APPL
|
OVERLIB=OVER.LIB.GLOBAL
|
ONPGM
|
STEP=ANYSTEP
|
CODES=C0000
|
DO=COND
|
CONDS=(GLOBAL-COND,ODAT,+)
|
CONTROL=(CONTROL-RESOURCE,E)
|
RESOURCE=(QUANTIT-RESGLOBL,0009)
|
TABLE-ENTITY=TABLE-ENTITY1
|
TASKTYP=TBC cyclic smart table
|
ONPGM
|
STEP=GROUPEND ON TABLE-END
|
CODES=NOTOK
|
DO=SHOUT
|
MSG='TABLE-ENT SHOUT'
|
DEST=OPER-2,URG=U
|
SCHEDULE-RBC=RBC1
|
WDAYS=6
|
EXT-SHIFT=+7
|
CONFCAL=GRPDCAL
|
SCHEDULE-RBC=RBC3
|
DATES=(1010,0202,0909)
|
MAXWAIT=03
|
SCHEDULE-RBC=RBC4
|
DAYS=10
|
WDAYS=0
|
SCHEDULE-RBC=X
|
SCHEDULE-RBC=*END
|
***=== SMART Table ENTITY (NON-RBC) DEFINITIONS ==
|
ADJUST-CONDS=Y
|
IN=(TABLE-IN-COND,ODAT)
|
OUT=(TABLE-OUT-COND,ODAT,+)
|
MAXRERUN-CYC=9999
|
CYCLIC-TYPE=S
|
TOLERANCE=0999
|
CYC-RUNTIME=1030,000
|
CYC-RUNTIME=1520,000
|
CYC-RUNTIME=1310,000
|
CYC-RUNTIME=2015,000
|
CYC-RUNTIME=1155,000
|
ONPGM
|
STEP=GROUPEND ON TABLE-END
|
CODES=OK
|
DO=SHOUT
|
MSG='FIRST MSG'
|
DEST=OPER-1,URG=V
|
SHOUT-WHEN=OK
|
MSG=SHOUT-WHEN
|
DEST=OPER-3
|
*
|
MEMNAME=PNADCICW
|
DAYS=+15
|
DCAL=CALENDR
|
OWNER=MKGRP
|
MEMLIB=GENERAL-LIB
|
MAXRERUN=233
|
INTERVAL=1440
|
IN=(PNADCICW,PREV)
|
OUT=(PNADCICW-OK,ODAT,+)
|
RBC-RELATION=A
|
SCHEDULE-RBC=RBC1
|
RESOURCE=(JOB-RESOURCE,0099)
|
SCHEDULE-RBC=RBC3
|
SCHEDULE-RBC=*
|
MEMNAME=PNADCICX
|
APPL=LOCAL-APPL
|
IN=(PNADCICX,PREV)
|
OUT=(PNADCICX-OK,ODAT,+)
|
SCHEDULE-RBC=RBC1
|
MEMNAME=ANOTHER
|
MEMLIB=GENERAL
|
IN=(ANOTHER,ODAT)
|
TABLE=@INITJO2
|
MEMLIB=GLBL-MEMLIB2 GLOBAL
|
TABLE-ENTITY=TABLE-ENTITY2
|
SCHEDULE-RBC=RBC8
|
DAYS=5
|
DCAL=GRPDCAL
|
SCHEDULE-RBC=RBC9
|
PERIOD=L2P3
|
DCAL=PERCAL2
|
SCHEDULE-RBC=RBC10
|
DATES=(1111,1212,0808)
|
SCHEDULE-RBC=*END
|
DOCMEM=TABLE2
|
MEMNAME=PNADCCW2
|
SCHEDULE-RBC=RBC8
|
SCHEDULE-RBC=RBC9
|
MEMNAME=PNADCCX2
|
IN=(PNADCICW,PREV)
|
SCHEDULE-RBC=RBC10
|
MEMNAME=ANOTHER
|
IN=(ANOTHER,ODAT)
|
TABLE=@INITJO3 === NOT A SMART TABLE ===
|
GROUP=GLBL-TABLE3 GLOBAL
|
MEMLIB=GLBL-MEMLIB3 GLOBAL
|
DAYS=5
|
MEMNAME=PNADCCW3
|
GROUP=INIT-JOBS
|
DESC='THIS IS A BATCH JOB/TABLE GENERATION'
|
OUT=(PNADCICW-OK,ODAT,+)
|
MEMNAME=PNADCCX3
|
IN=(PNADCICW,PREV)
|
PREVENT-NCT2=L
|
*** ======= SPECIFIY NEW SET OF SUPER GLOBALS ==========
|
TABLE=*END
|
ADD-GLOBAL=Y
|
DOCLIB=SUPER.GLOBAL.DOCLIB2 SUPER GLOBAL
|
APPL=SUPER-GLOBAL-APPL2 SUPER GLOBAL
|
TABLE=@INITJPB
|
OWNER=GLBLOWN9
|
GROUP=GLBL-TABLE9
|
SCHEDULE-RBC=X
|
MEMLIB=GLBL-MEMLIB
|
OVERLIB=OVER.LIB.GLOBAL9
|
CONTROL=(CONTROL-RESOURCE9,E)
|
TABLE-ENTITY=TABLE-ENTITY1
|
SCHEDULE-RBC=RBC1
|
WDAYS=6
|
SCHEDULE-RBC=RBC4
|
WDAYS=0
|
SCHEDULE-RBC=X
|
SCHEDULE-RBC=*END
|
OUT=(TABLE-OUT-COND,ODAT,+)
|
MEMNAME=PNADCICW
|
MEMLIB=GENERAL-LIB
|
MAXRERUN=233
|
INTERVAL=1440
|
INTERVAL-TYP=E
|
IN=(PNADCICW,PREV)
|
RBC-RELATION=A
|
SCHEDULE-RBC=RBC1
|
RESOURCE=(JOB-RESOURCE,0099)
|
SCHEDULE-RBC=*
|
MEMNAME=PNADCICX
|
APPL=LOCAL-APPL
|
IN=(PNADCICX,PREV)
|
SCHEDULE-RBC=RBC1
|
MEMNAME=ANOTHER
|
IN=(ANOTHER,ODAT)
|
