JCL/DYLAKOR help

admin

Administrator
Staff member
I have written a JCL using DYLAKOR 280. I ran the script in a test enviroment with all intentions of copying the code into an existing DYLAKOR. Once the code was moved to a production platform, the code quit working, and was wanting for someone to look over the portion that is not working, which happens to be the part that I wrote.<br /><br /><!--c1--><div class='codetop'>CODE</div><div class='codemain'><!--ec1-->//STEP0060 EXEC  PGM=DYL280,COND=(4,LT)            <br />//INFILE   DD  DSN=MY.DATASET.ONE(0),DISP=OLD   <br />//OUTFILE  DD  DSN=MY.DATASET.TWO,DISP=OLD     <br />//SYS004   DD  UNIT=SYSDA,SPACE=(TRK,(45,45))      <br />//SYSPRINT DD  SYSOUT=*                            <br />//SYSOUT   DD  SYSOUT=*                            <br />//SYSUDUMP DD  SYSOUT=*                            <br />//SYS280R  DD  SYSOUT=*                            <br />//SYSIN    DD  *                                   <br />  FILE INFILE FB 133 INPUT                         <br />    ID     5  124                                  <br />    THEREC 132 2                                   <br />  FILE OUTFILE OUTPUT FROM OUTFILE FB 132 1320     <br />  OUTREC1 132 1                                    <br />  WORKAREA                                         <br />  NEWREC 132 1                                     <br /> IF ID EQ 'LAPSE'                                  <br />  MOVE THEREC    TO OUTREC1                <br />   ACCEPT  <br />   ENDIF   <br />   REJECT  <br /> FIN       <br /> /*       <!--c2--></div><!--ec2--> <br /> <br />This is driving me crazy since the rest of the code works, but this part does not! <img src="http://static.dreamincode.net/forums/style_emoticons/default/crazy.gif" style="vertical-align:middle" emoid=":crazy:" border="0" alt="crazy.gif" /><br /><br /><span class='edit'>This post has been edited by <b>programming4life</b>: 2 Apr, 2008 - 01:11 PM</span>
</div>
 
Back
Top