[CLOSED] printing direct-debit voucher =0 which should not be printed

Hi I have below fex file

where in reports its printing direct debit voucher = 0 but it should not print , its not getting direct_debit is not 0 den it should not print it.
If someone can help me with this. Its bit urgent issue i need to fix and im not understanding what could be the solution

-SET EXT_NAME = FGETENV(19,'EP02_EXT_SHORT_NAME',14,'A14');
-SET LAY_NAME = FGETENV(19,'EP02_LAY_SHORT_NAME',14,'A14');
-* Linux Migration Start Change
-SET &WORKDIR=FGETENV(128,'TLG_SHORTNAME_DIR',128,'A128');
-SET &UNAME_RESULT = FGETENV(12,'UNAME_RESULT',20,'A20');
-* Linux Migration End Change

-* Linux Migration Start Change
-SET EXT_FILE = (&WORKDIR || '/'||&EXT_NAME);
-IF &UNAME_RESULT EQ 'Linux' THEN GOTO L1556551 ;
-SET EXT_FILE = ('..' || '/'||&EXT_NAME);
-L1556551

-* Linux Migration End Change

-* Linux Migration Start Change
-SET &&REP_FILE = (&WORKDIR || '/'||&LAY_NAME);
-IF &UNAME_RESULT EQ 'Linux' THEN GOTO L1556631 ;
-SET &&REP_FILE = ('..' || '/'||&LAY_NAME);
-L1556631

-* Linux Migration End Change

-SET &REPCODE='AREP-02-EXP';
-SET &REPNAME='E X C E P T I O N A L P A Y M E N T S R E P O R T';
SET PANEL=360
EX apcon
-RUN
-IF &FOCERRNUM NE 0 GOTO ERR;

DEFINE FILE M_PYMMTD
PMDESC/A10 = ''''|METHOD_SHORT_DESC|'''';
SPACE1/A2 = ' ';
PYMMETHOD/A4 = ''''|PYM_METHOD|'''';
END

TABLE FILE M_PYMMTD
PRINT PYMMETHOD SPACE1 PMDESC
ON TABLE SAVE AS PMSAVE
END

EX dbdis
-RUN
-IF &FOCERRNUM NE 0 GOTO ERR;

FILEDEF OFFLINE DISK &&REP_FILE
OFFLINE
-INCLUDE gnrpdef.fex

-*-----Start chnage #1
-*FILEDEF arep02 DISK &EXT_FILE (RECFM F LRECL 796
FILEDEF arep02 DISK &EXT_FILE (RECFM F LRECL 808
-*-----End change #1
DEFINE FILE AREP02
ROWID/A1=' ';
STR_NAME/A15=SUBSTR(50,STR_NAME,1,15,15,'A15');
ARE_CITY/A20=SUBSTR(26,ARE_CITY,1,20,20,'A20');
ARE_MEMO/A90=SUBSTR(180,ARE_MEMO,1,90,90,'A90');
PM_DCOD/A8=DECODE PYM_METH(PMSAVE);
PYMMETH/A11=IF PYM_METH EQ ' ' THEN ' '
ELSE PYM_METH||'-'||PM_DCOD;
-*DEP_DATE/A8YYMD=DEP_DATE;
-*DEP_DATE/MDYY=DEP_DATE;
N_DEP_DATE/A10=EDIT(DEP_DATE,'$$$$99/99/')|EDIT(DEP_DATE,'9999');

ACT_DATE/A8YYMD=ACT_DATE;
ACT_DATE/MDYY=ACT_DATE;
RSUB_NO/A10=RJUST(10,SUB_NO,'A10');
SUBSCRIB/A12=IF RSUB_NO EQ ' ' THEN ' '
ELSE RSUB_NO;
SOURCE/A10=SOU_TYPE|' '|SOU_ID;
OPE_ID/A9=EDIT(OPE_ID);
OPEID/A9=IF OPE_ID EQ '000000000' THEN ' '
ELSE OPE_ID;
-*-----Start change #1
PRT_ACTV_AMT/P15.2C=ACTV_AMT;
ORI_AMT/P14.2C = ORI_AMT;
ACTV_AMT/P14.2C = ACTV_AMT;
-*PRT_ACTV_AMT/P12.2C=ACTV_AMT;
-*ORI_AMT/P11.2C = ORI_AMT;
-*ACTV_AMT/P11.2C = ACTV_AMT
-*-----End change #1
LINEX/I7C WITH BAN = 1;
NAME/A60=IF FIR_NAME NE ' ' THEN FIR_NAME
ELSE BUS_NAME ;
ADR/A100=IF STR_NAME NE ' ' THEN HOU_NO|STR_NAME
ELSE PRI_LN ;
END

-RUN
-IF &FOCERRNUM NE 0 GOTO ERR;

TABLE FILE AREP02
HEADING
-INCLUDE gnrphdr.fex
" "<61 +----- File Information -----+"
PRINT
FST.BAN NOPRINT
SEQ_NO1 AS ' PYM ,SEQ NO' IN 1
ORI_BAN AS ' ORIGINAL, BAN' IN 12
SUBSCRIB AS ' SUBSCRIBER , ' IN 23
PYMMETH AS ' PAYMENT , METHOD' IN 37
N_DEP_DATE AS ' DEPOSIT , DATE' IN 49
SOURCE AS ' SOURCE , ' IN 61
SEQ_NO AS ' SEQ , ' IN 73
BATCH_NO AS 'BATCH, ' IN 80
LIN_NO AS 'LINE, ' IN 87
ORI_AMT AS ' ORIGINAL, AMOUNT' IN 92
-*-----Start change #1
ACTV_AMT AS ' PAYMENT , AMOUNT' IN 110
OPEID AS ' OPERATOR, ID' IN 129
-* ACTV_AMT AS ' PAYMENT , AMOUNT' IN 104
-* OPEID AS ' OPERATOR, ID' IN 120
-*-----End change #1
BY ROWID NOPRINT
BY BAN NOPRINT
BY ACT_DATE NOPRINT
BY HIGHEST ACTV_AMT NOPRINT
BY SEQ_NO1 NOPRINT

ON SEQ_NO1 SUBFOOT
"<24 Bank: WHEN (BAN_CODE1 NE ' ') OR (ACC_NO NE ' ') OR (CHECK_NO NE ' ');
SUBFOOT
"<24 Coupon Code: WHEN (SUB_METH NE ' ') AND (GIF_NO NE ' ');
SUBFOOT
"<24 Credit Card Type: WHEN (SUB_METH NE ' ') AND (CAR_NO NE ' ');
SUBFOOT
"<41 Direct Debit Voucher: WHEN &DBT_VOUC.EVAL NE 0;

SUBFOOT
"<24 Exception Reason: Posting date: "
SUBFOOT
"<5 NAME : STREET : <5 CITY : <74 STATE : WHEN ((NAME NE ' ') OR (ADR NE ' ')) AND (CAR_NO NE ' ');

ON ACTV_AMT NOSPLIT

ON BAN PAGE-BREAK
ON BAN SUBFOOT
"<+4 Number of Payments: <60 "
"<42 Total Amount: <55 "

ON ROWID SUBFOOT
""
"<42 Total Amount: <55 "

FOOTING BOTTOM

-IF &&NOCSV GOTO NO_CSV_SET;
-WRITE DDTTL 'Exception Control Account','PYM SEQ NO','ORIGINAL BAN',,
-'SUBSCRIBER','PAYMENT METHOD','DEPOSIT DATE','SOURCE','SEQ','BATCH',,
-'LINE','ORIGINAL AMOUNT','PAYMENT AMOUNT','OPERATOR ID'
-SET &STOP_FIELD = 'OPEID';
-NO_CSV_SET

-INCLUDE gnrpftr.fex
END

-RUN
-IF &FOCERRNUM NE 0 GOTO ERR;

-INCLUDE gnrpempt.fex

-* Linux Migration Start Change
-IF &UNAME_RESULT EQ 'Linux' THEN GOTO LINUX_OS;
-QUIT FOCUS 0
-* Linux Migration End Change

-ERR
-TYPE Report failed.

-* Linux Migration Start Change
-IF &UNAME_RESULT EQ 'Linux' THEN GOTO LINUX_OS;
-QUIT FOCUS &FOCERRNUM
-LINUX_OS
-EXIT
-* Linux Migration End Change
END

Thanks a lot in advance

This message has been edited. Last edited by: FP Mod Chuck,

WebFOCUS, Linux
Excel, CSV

Posts: 62 | Registered: May 23, 2017

MartinY

Virtuoso

posted