Help for this page

Select Code to Download


  1. or download this
    - <JOB APPLICATION="BEART-NA-ARTEMIS" APR="0" AUG="0" AUTHOR="j926209"
    + AUTOARCH="0" CHANGE_USERID="e000775" CMDLINE="art_extract.ksh %%PROP
    +FILE %%CONFIG %%AGENDA" CONFIRM="0" CREATION_DATE="20080703" CREATION
    +_TIME="094054" CREATION_USER="f064188" CRITICAL="0" CYCLIC="0" DAYS_A
    +ND_OR="OR" DEC="0" DESCRIPTION="Daily CPP2 Extract from Artemis" FEB=
    +"0" IND_CYCLIC="START" INTERVAL="00000M" JAN="0" JOBNAME="BARTDE01-CP
    +2DLY" JUL="0" JUN="0" MAR="0" MAXDAYS="0" MAXRERUN="0" MAXRUNS="0" MA
    +XWAIT="5" MAY="0" MEMNAME="CPP2 Daily Extract" MULTY_AGENT="N" NODEID
    +="BEART-MIS-UNIX" NOV="0" OCT="0" OWNER="arteprd" PRIORITY="05" RETRO
    +="0" SEP="0" SHIFT="IGNOREJOB" SHIFTNUM="+00" SYSDB="0" TAG_RELATIONS
    +HIP="OR" TASKTYPE="Command" USE_INSTREAM_JCL="0" PREVENTNCT2="N">
      <INCOND AND_OR="AND" NAME="PL-BARTDE00-IU-MAINT-H-OK" ODATE="ODAT" /
    +> 
    ...
      <DOMAIL CC_DEST="suhail.x.siddiqui@jpmchase.com,harish.x.halikere@jp
    +mchase.com,rinku.x.mishra@jpmchase.com" DEST="ib_cp_operate@jpmorgan.
    +com" MESSAGE="0020ATTN : Operate Team.00000027%%JOBNAME HAS ENDED NOT
    +-OK.00000019Please Investigate." SUBJECT="CONTROL - M BATCH CPP2 Dail
    +y Extract JOB ENDED NOT-OK." URGENCY="R" /> 
      </ON>
      </JOB>
    
  2. or download this
    #!/usr/bin/perl -w
    
    ...
        $count++;
        }
    }