CU Users Group

[GHAWKINS]

I can't figure out what I'm missing in a load program that I just updated. The notes in MEMO are being limited to 40 characters, although I looked at the MEMOSUB file on the logon and thought I set my parameters correctly for unlimited.

Anyone have an idea of what I'm doing wrong?

[dhenders]

I'm not sure if this will help but I wrote my own subroutine that calls memosub so I don't have to worry about all the parameters in every program I write. Here it is, let me know if you have any questions:

001 SUBROUTINE WRITE.MEMO(FILE,ID,CHGFLD)
002 * 09-28-09 DJH
003 * SETS ALL VARIABLE FOR CALLING MEMOSUB
004 * FILE - UPDATE DEBTOR NOTES OR CLIENT NOTES
005 * ID - DEBTOR ID TO WRITE MEMO TO
006 * CHGFLD - MEMO TO WRITE
007 OPEN 'MEMO' TO MEMO.FILE ELSE CALL NO.FILE('','MEMO',0)
008 OPEN 'CLIENT-MEMO' TO CLIENT.MEMO.FILE ELSE CALL NO.FILE('','CLIENT-MEMO',0
)
009 OPEN 'AGENCY' TO AGENT ELSE CALL NO.FILE('','AGENCY',0)
010 OPEN 'DICT','AGENCY' TO DAGENT ELSE CALL NO.FILE('','DICT AGENCY',0)
011 OPEN 'DICT','SECURITY' TO DSEC ELSE CALL NO.FILE('','DICT SECURITY',0)
012 CALL OPERATING.RELEASE(0,AGENT,OP.REL)
013 CALL WHO.CUBS('',WHO,OP.REL)
014 PORT = FIELD(WHO,' ',1)
015 IF PORT LT 10 THEN XPORT = PORT'R%2' ELSE XPORT = PORT
016 READ MASTER FROM DAGENT,'CFMASTER' ELSE MASTER = ''
017 READV EMP.INIT FROM DSEC,XPORT,2 ELSE EMP.INIT = ''
018 PROG = 'WRITE.MEMO'
019 CD = '&'
020 IF FILE = 'DEBTOR' THEN
021 CALL MEMOSUB(ID,MEMO.FILE,CHGFLD,CD,MASTER,'','',PROG,EMP.INIT)
022 END
023 IF FILE = 'CLIENT' THEN
024 CALL MEMOSUB(ID,CLIENT.MEMO.FILE,CHGFLD,CD,MASTER,'','',PROG,EMP.INIT)
025 END
026 RETURN

Its kind of hard to read in here so if you want me to e-mail it to you let me know
_________________
David Hendershot
Creditech
Bangor, PA 18301
610-863-6025

[GHAWKINS]

Thanks for responding back. Just one question for now. How would I initiate this in my load program?

[dhenders]

Are you talking about a load program that uses TRANSFER.CLIENT.TAPE? If you are updating an account that you know the debtor number on then you could take that program I sent you and compile and catalog it (I call it WRITE.MEMO) then in your program just do a

CALL WRITE.MEMO ('DEBTOR',DEBTOR.ID,MEMO)

DEBTOR specifies its a debtor memo
DEBTOR.ID is the debtor number
MEMO is the note you want to add

If you don't know the the debtor number yet because its a new account that hasn't been loaded let me know and I might have a different solution
_________________
David Hendershot
Creditech
Bangor, PA 18301
610-863-6025

[GHAWKINS]

It's on a new business load program, so I wouldn't have a debtor # as yet.

[dhenders]

OK I am not aware of a way to use the memosub in a load program because I thought you needed the debtor number first, however you can create the memo when you do the load by building a memo record and then writing it to CLIENT-TAPE on the same ID you are using to write the new debtor record but with and **M on the end of the ID. So lets say you are doing

WRITE DREC ON CTAPE,ID

For the MEMO you would do a

WRITE MEMREC ON CTAPE,ID:'**M'

Does that make sense? If you need help actually building that memo record let me know. If you send me a sample of what you want in the MEMO's I can tell you what the memo record should look like.
_________________
David Hendershot
Creditech
Bangor, PA 18301
610-863-6025