I am having trouble getting some File-AID JCL to work.
The JCL tallies balances, and sums 1 or 0 flags.
I am not sure what marks the end of an 'IF' statement so I really have no control over what gets executed and what does not.
I thought line breaks indicated what went inside a conditional 'IF'-block. In the JCL I created, my conditional statments appear after an IF. Each statement on a new line is meant to execute unconditionally...but this isn't happening.
Does anyone know how I should indicate the end of a File-AID 'IF'? If so, please let me know how I can correct this code.
Much Thanks,
-Tom
Here is the JCL,
//**********************************************************************
//STEP00 EXEC PGM=FILEAID
//DD01 DD DSN=AXA.FINANCE.DATASET.TEST,
// DISP=OLD
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//SYSTOTAL DD SYSOUT=*
//SYSIN DD *
$$DD01 TALLY ACCUM=(29,'CURRENT BALANCE'),
IF=(39,EQ,P'1'),ACCUM=(29,'CHARGED OFF BALANCE'),
IF=(39,NE,P'1'),ACCUM=(29,'NET BALANCE'),
IF=(39,EQ,P'1,0'),ACCUM=(41,'RECORD COUNT'),
IF=(39,EQ,P'1'),ACCUM=(39,'CHARGED OFF ACCOUNTS'),
IF=(40,EQ,P'1'),ACCUM=(40,'NET ACCOUNTS'),
IF=(35,EQ,P'1'),ACCUM=(40,'FORMAT-1 RECORDS'),
IF=(36,EQ,P'1'),ACCUM=(40,'FORMAT-2 RECORDS'),
IF=(37,EQ,P'1'),ACCUM=(40,'FORMAT-3 RECORDS'),
IF=(38,EQ,P'1'),ACCUM=(40,'FORMAT-4 RECORDS'),
IF=(39,EQ,P'1,0'),ACCUM=(41,'BASE SEGMENTS'),
ACCUM=(42,'HIGH RISK SEGMENTS'),
ACCUM=(43,'CL PROD SMALL SEGMENTS'),
ACCUM=(44,'CL PROD MEDIUM SEGMENTS'),
ACCUM=(45,'CL PROD LARGE SEGMENTS'),
ACCUM=(46,'CL PROD XLARGE SEGMENTS'),
ACCUM=(47,'SLS SEGMENTS'),
ACCUM=(48,'ALP SEGMENTS'),
ACCUM=(49,'HISTORY SEGMENTS'),
ACCUM=(50,'BEHAVIOR SEGMENTS'),
ACCUM=(51,'MONETARY SEGMENTS'),
ACCUM=(52,'DELINQUENT SEGMENTS')
/*
//STEP00 EXEC PGM=FILEAID
//DD01 DD DSN=AXA.FINANCE.DATASET.TEST,
// DISP=OLD
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//SYSTOTAL DD SYSOUT=*
//SYSIN DD *
$$DD01 TALLY ACCUM=(29,'CURRENT BALANCE'),
IF=(39,EQ,P'1'),ACCUM=(29,'CHARGED OFF BALANCE'),
IF=(39,NE,P'1'),ACCUM=(29,'NET BALANCE'),
IF=(39,EQ,P'1,0'),ACCUM=(41,'RECORD COUNT'),
IF=(39,EQ,P'1'),ACCUM=(39,'CHARGED OFF ACCOUNTS'),
IF=(40,EQ,P'1'),ACCUM=(40,'NET ACCOUNTS'),
IF=(35,EQ,P'1'),ACCUM=(40,'FORMAT-1 RECORDS'),
IF=(36,EQ,P'1'),ACCUM=(40,'FORMAT-2 RECORDS'),
IF=(37,EQ,P'1'),ACCUM=(40,'FORMAT-3 RECORDS'),
IF=(38,EQ,P'1'),ACCUM=(40,'FORMAT-4 RECORDS'),
IF=(39,EQ,P'1,0'),ACCUM=(41,'BASE SEGMENTS'),
ACCUM=(42,'HIGH RISK SEGMENTS'),
ACCUM=(43,'CL PROD SMALL SEGMENTS'),
ACCUM=(44,'CL PROD MEDIUM SEGMENTS'),
ACCUM=(45,'CL PROD LARGE SEGMENTS'),
ACCUM=(46,'CL PROD XLARGE SEGMENTS'),
ACCUM=(47,'SLS SEGMENTS'),
ACCUM=(48,'ALP SEGMENTS'),
ACCUM=(49,'HISTORY SEGMENTS'),
ACCUM=(50,'BEHAVIOR SEGMENTS'),
ACCUM=(51,'MONETARY SEGMENTS'),
ACCUM=(52,'DELINQUENT SEGMENTS')
/*
