Example WFL Include File

The following example shows the format of a WFL include file.

00000010% Begin Before Copy Phase
00000020% Code to line sequence 5000 will be executed before the Transfer WFL
00000030% does any copies
00000031
00000032COPY (SOURCE)SYSNAME/NGEN28USER/SOURCE
00000033 AS (PROD)SYSNAME/NGEN28USER/SOURCE
00000034 FROM SOURCE(PACK)
00000035 TO PROD (PACK);
00000036
00000040% End Before Copy Phase
00000050%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
00005010% Begin Copy Program / File Phase
00005020% Code to line sequence 25000 will be executed when the Transfer WFL
00005030% is copying program and files
00005031
00005032% NOTE that if TAPE is the media used to do the transfer then any copies
00005033% to the <sys> TFR tape must use the LIBMAINTAPPEND = TOEND operator.
00005034
00005035 COPY (SOURCE)NONLINC/REPORT AS (PROD)NONLINC/REPORT FROM SOURCE(PACK)
00005036 TO #RELEASEID (KIND=TAPE,LIBMAINTAPPEND = TOEND);
00005037
00005038% Also note that strings setup in the host WFL may also be reused
00005039
00005040% End Copy Program / File Phase
00005050%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
00025000% Begin Copy Database data / File Phase
00025010% Code to line sequence 50000 will be executed if the Transfer WFL
00025020% is required to copy database data
00025022
00025024% NOTE that if TAPE is the media used to do the transfer then any copies
00025026% to the <sys> TFR tape must use the LIBMAINTAPPEND = TOEND operator.
0002502800025030 COPY (SOURCE)DMINTERPRETER/SYSDB AS (PROD)DMINTERPETER/SYSDB FROM
00025032 SOURCE(PACK) TO#RELEASEID (KIND=TAPE,LIBMAINTAPPEND = TOEND);
00025034
00025036% End Copy Database data / File Phase
00025040%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
00050010% Begin After Copy Phase
00050020% Code to line sequence 75000 will be executed if the Transfer WFL
00050030% is required execute code after the copy has completed
00050032
00050034 DISPLAY (" Copy completed successfully - Configure may be started ");
00050036 REMOVE (SOURCE)NONLINC/REPORT FROM SOURCE;
00050038
00050040% End After Copy Phase
00050050%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
00075010% Begin Before Copy Phase
00075020% Code to line sequence 100000 will be executed before the Configure WFL
00075030% does any copies
00075032
00075034 DISPLAY (" Starting Configure ");
00075036
00075038
00075040% End Before Copy Phase
00075050%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
00100010% Begin Copy Program / File Phase
00100020% Code to line sequence 125000 will be executed when the Configure WFL
00100030% is copying program and files
00100032
00100034 COPY (PROD)NONLINC/REPORT FROM #RELEASEID TO PROD(PACK);
00100036
00100040% End Copy Program / File Phase
00100050%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
00100060% Begin Copy Database data / File Phase
00100070% Code to line sequence 125000 will be executed if the Configure WFL
00100080% is required to copy database data
00100082
00100084 COPY (PROD)DMINTERPRETER/SYSDB FROM #RELEASEID TO PROD(PACK);
00100086
00100090% End Copy Database data / File Phase
00100100%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
00150010% Begin Before Compile Phase
00150020% Code to line sequence 175000 will be executed before the Configure WFL
00150030% does any compiles
00150032
00150034 COPY (SOURCE)NONLINC/SOURCE/REPORT AS (PROD)NONLINC/SOURCE FROM
00150036 SOURCE(PACK) TO PROD(PACK);
00150038
00150040% End Before Compile Phase
00150050%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
00175010% Begin Compile Phase
00175020% Code to line sequence 200000 will be executed when the Configure WFL
00175030% does its compiles
00175032
00175034 COMPILE (PROD)NONLINC/REPORT/2 ON PROD WITH #SCOBOL LIBRARY;
00175036 COMPILER FILE CARD = (PROD)NONLINC/SOURCE ON PROD;
00175038
00175040% End Compile Phase
00175050%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
00200010% Begin Before Modify Phase
00200020% Code to line sequence 225000 will be executed before the Configure WFL
00200030% does any modifies
00200032
00200034 DISPLAY (" Will modify Linc and Non Linc Reports ");
00200036
00200040% End Before Modify Phase
00200050%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
00225010% Begin Modify Phase
00225020% Code to line sequence 250000 will be executed when the Configure WFL
00225030% does its modifies
00225032
00225034 MODIFY (PROD)NONLINC/REPORT/2 ;
00225036 FILE EXTRACTPACK (FAMILYNAME = PROD);
00225038
00225040% End Modify Phase
00225050%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
00250010% Begin Before Run Phase
00250020% Code to line sequence 275000 will be executed before the Configure WFL
00250030% runs any program to load/setup data for the target system
00250032
00250034 WAIT (" Ok to run REPORT/2 to Update database " ,OK);
00250036
00250040% End Before Run Phase
00250050%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
00275010% Begin Run Phase
00275020% Code to line sequence 300000 will be executed when the Configure WFL
00275030% runs any program to load/setup data for the target system
00275032
00275034 RUN (PROD)NONLINC/REPORT/2 ON PROD;
00275036
00275040% End Run Phase
00275050%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
00300010% Begin Finish Phase
00300020% Code to line sequence 325000 will be executed when the Configure WFL
00300030% is about to finish
00300032
00300034 DISPLAY (" Configure completed Ok removing Non Linc files ");
00300036 REMOVE (PROD)NONLINC/REPORT/2 FROM PROD;
00300040
00300045% End Finish Phase
00300050%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%