[IBS Home] [Up] [CLAPP08J] [Out of Balance] [Wrong Vendor Printed]

Error in Program CLAPP08J

Program(s) effected

• CLAPP08J - Print Journal Proof

  AP Version 1-3

  • AU 3, 1, 3 (Print Journal Proof)

  AP Version 3a

  • AU 3 (Print Journal Proof)

Error

• Program
  CLAPP08J
• Message identifier
  CPA0701
• Message Detail
  ) TOUSR(' ') MSGTYPE(*INFO)
  Value ' ' for parameter TOUSR not a valid name.
  Error found on SNDMSG command.
  Function check. CPF0001 unmonitored by CLAPP08J at statement 3800,
  instruction X'0021'.
  CPF0001 received by CLAPP08J at 3800. (C D I R)
• CPA Message identifier
  cpa0701
  
  Message ID . . . . . . : CPA0701 Severity . . . . . . . : 99
  Message type . . . . . : Inquiry
  Date sent . . . . . . : 01/24/08 Time sent . . . . . . : 12:18:06
  
  Message . . . . : CPF0001 received by CLAPP08J at 3800. (C D I R)
  Cause . . . . . : Control language (CL) program CLAPP08J in library
  CATPACLIB detected an error at statement number 3800. Message text for
  CPF0001 is: Error found on SNDMSG command.

Cause

• This is caused by the user not having a valid print queue. 

Effects

• This error will stop reports from running until the message is answered (see recovery)
• This error does not change or delete any information. 

Recovery

• Reply to any messages in Work with active jobs with an 'I' (Ignore)
• Add the following line into your autoreply file
  • ADDRPYLE SEQNBR(70) MSGID(CPF0001) RPY(I)
• verify auto reply by going into wrkrpyle
   

Permanent PDM Change

Before

• 0003.00
  0004.00 PGM
  0005.00 DCL VAR(&OUTBAL) TYPE(*CHAR) LEN(1)
  0006.00 DCL VAR(&USER) TYPE(*CHAR) LEN(10)
  0022.00
  0023.00 CALL PGM(AP026)
  0024.00
  0025.00 RTVDTAARA DTAARA(*LDA (16 1)) RTNVAR(&OUTBAL)
  0026.00
  0035.00 IF COND(&OUTBAL *EQ 'E') THEN(GOTO CMDLBL(CANCEL))
  0036.00 GOTO CMDLBL(END)
  0037.00
  0038.00 CANCEL: SNDMSG MSG(' +
  0039.00 *******************************************+
  0040.00 **************************** OUT OF +
  0041.00 BALANCE--SEE PURCHASE JOURNAL REPORT TO +
  0042.00 CORRECT ERRORS. +

After

• Remark out the affected areas
• Important Notes
  • A total of '9' (nine) lines will be remarked out
  • Recompile must be into catpaclib not catpacsrc
    i.e. 14 (Compile) + F4 (Prompt)
  • Abnormal recompile = you haven't remarked out all or the correct lines

 

IBS Lumber and Building Material Software  Copyright © 2006 IBS Lumber Software Inc (TM)
Last modified: July 4, 2008

IBS Sales & Support (888) 427-1566
Main Office 1-812-547-4640
Fax IBS  1-812-547-9614

All pages contained in this support website are not intended for general public distribution.  Any material here can be considered private, confidential with various copyrights and restrictions against public release.  You 'the browser' cannot legally release this information for general public distribution.

IBS Webmail | IBS Corporate Site | IBS Homepage
remote support: http://www.gotomeeting.com | remote support download program