2.4.1.11.5 Example(s)

Listing 3-1

(START)
          m_OutputAssign -c A   SYSOUT
          m_OutputAssign -c "*" SYSPRINT
          m_FileAssign -i SRCIN
    UNLOAD UNLDDN OUTFILEA FROM TABLE ZS
    LOAD DATA INDDN OUTFILEB RESUME YES INTO TABLE ZS
    UNLOAD UNLDDN OUTFILEC FROM TABLE ARTBATCH.ZS
    LOAD DATA INDDN OUTFILED REPLACE YES INTO TABLE ARTBATCH.ZS
    UNLOAD UNLDDN OUTFILEE FROM TABLE ARTBATCH.ZS
_end
          m_FileAssign -d NEW,KEEP,KEEP OUTFILE ${DATA}/dynsysin
          m_FileRepro -i SRCIN -o OUTFILE
          JUMP_LABEL=UNLOAD_1
          ;;
    (UNLOAD_1)
          m_FileAssign -d NEW,KEEP,DELETE OUTFILEA
${DATA}/TABLE_ZS_UNLOAD_1.txt
          m_FileAssign -d OLD,KEEP,KEEP OUTFILEB
${DATA}/TABLE_ZS_UNLOAD_1.txt
          m_FileAssign -d NEW,KEEP,DELETE OUTFILEC
${DATA}/TABLE_ZS_UNLOAD_2.txt
          m_FileAssign -d OLD,KEEP,KEEP OUTFILED
${DATA}/TABLE_ZS_UNLOAD_1.txt
          m_FileAssign -d NEW,KEEP,DELETE OUTFILEE
${DATA}/TABLE_ZS_UNLOAD_3.txt
          m_FileAssign -d OLD,KEEP,KEEP SYSIN ${DATA}/dynsysin
          m_DSNUTILB
          JUMP_LABEL=CLEAN
          ;;