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%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%