Hi all,

Have any one help me to solve problem with COMO in R8005.
In code when i put:

EXECUTE "COMO DELETE ALLED"
EXECUTE "COMO ON ALLED"

GOSUB INITIATE
GOSUB PROCESS.COMP
GOSUB PROCESS.OUTPUT
EXECUTE "COMO OFF ALLED"
RETURN
.............
.............
PRINT COMP.MNE.SUB : "*" : STMT.BK.DT : "*" : FT.ID : "*" : DR.ACC :"*" : DR.MNE : "*" : DR.ACC.NA : "*" : STMT.DATE : "*" : DR.CUR : "*" : AMOUNT.INCOME.FCY : "*" : AMOUNT.INCOME.LCY :"*" : STMT.RATE : "*" : CR.ACC : "*" : STMT.MNE : "*" : CR.ACC.NA : "*" : TRA.PUR : "*" : TRANS.CODE : "*" : FT.TYPE : "*" : FT.CLASS : "*" : STMT.SYS : "*" : TRA.INP :"*" : TRA.AUT : "*" : FT.CHG.CODE : "*" : FT.CHG.TYPE : "*" : FT.CHG.AMT
==========
When it produce COMO it always show the selected records and i don't want to get it? Please help me to solve this issue?
==========
Please see the result produce from COMO
....
COMO ALLORI established 16:36:37 03 JUN 2010

1 Records selected


67 Records selected


167703 Records selected

BR1**FT10138005VGKV1C;1*************900*ACCU********TRANSFER IN*154790038753801.020002
BR1**FT101250039GNGZ0;1*************900*ACCU********TRANSFER IN*154660098239351.010002
BR1**FT10127005G6RNKH;1*************183*ACCU********TRANSFER OUT*154680055348300.000002
BR1**FT10145009GW7NG1;1*************183*ACCU********TRANSFER OUT*154860044645651.000002
BR1**FT10138002QN5N0R;1*************900*ACCU********TRANSFER IN*154790062844121.010001
BR1**FT101300063J65PR;1*************900*ACCU********TRANSFER IN*154710017759810.010001
BR1**FT10131006BS261R;1*************900*ACCU********TRANSFER IN*154720030236001.010001
BR1**FT101410049Y3B41;1*************900*ACCU********TRANSFER IN*154820044547850.010001
BR1**FT1012400B1DGLR2;1*************183*ACCU********TRANSFER OUT*154650057852481.000003
====
My purpose is do not get the selected records as :

1 Records selected


67 Records selected


167703 Records selected



Thanks

Anything that will normally go to screen will go into the COMO when the como is on.

Therefore you need to supress any output that you dont want.

I cant see how you are doing the SELECTs in your program but I guess your using EXECUTE or PERFORM.

Look at the help for these command. You can add CAPTURING so that the output is captured to a variable. Eg -

PERFORM "SELECT F.COMPANY" CAPTURING OUTPUT

You can also append the output strings to a variable and can write the variable into file in COMO.

for ex :

#####
WRITE.MSG<-1>=COMP.MNE.SUB : "*" : STMT.BK.DT : "*" : FT.ID : "*" : DR.ACC :"*" : DR.MNE : "*" : DR.ACC.NA : "*" : STMT.DATE : "*" : DR.CUR : "*" : AMOUNT.INCOME.FCY : "*" : AMOUNT.INCOME.LCY :"*" : STMT.RATE : "*" : CR.ACC : "*" : STMT.MNE : "*" : CR.ACC.NA : "*" : TRA.PUR : "*" : TRANS.CODE : "*" : FT.TYPE : "*" : FT.CLASS : "*" : STMT.SYS : "*" : TRA.INP :"*" : TRA.AUT : "*" : FT.CHG.CODE : "*" : FT.CHG.TYPE : "*" : FT.CHG.AMT

WRITE WRITE.MSG ON F.COMO, 'OUTPUT_FILE_NAME' ON ERROR
PRINT "ERROR while writing COMO"
END

Hi,
Where F.COMO come form?
could u tell me on this?

Thanks

Could u give me one sample with write complete code for a few lines?
Thanks

KDA,

It is &COMO& directory in your bnk.run. F.COMO is a VOC pointer to this directory.

Regards,
Shanthi

You could simple use the command HUSH ON and HUSH OFF to suppress anything that appears on the screen Eg.

SEL.CMD = 'SELECT FBNK.CUSTOMER'
HUSH ON
EXECUTE SEL.CMD
HUSH OFF

The above command will not display the no of records selected on the screen

oK
I WILL TRY IT
THANK SO MUCH

by far the best is to use CAPTURING as in

EXECUTE "SELECT Fxxx.ACCOUNT" CAPTURING OUTPUT

the number of records selected is in the system variable @SELECTED and you are able to get anything you want out of the variable CAPTURED (if anything)

It's like doing the HUSH ON/OFF story but with complete control over funny errors that cause your routine to crash in the middle of the "HUSH" and you lose all access to the screen because everything from then on is in HUSH mode.

I use CAPTURING when I want to give some feedback on progress. @SELECTED is the maximum number. An incremented counter in the loop processing the selected records tells how far the process is along, and the division of ((cntr / maxno) * 100) gives you a percentage of completion.