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.

[back to top]

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

[back to top]

IBS Lumber and Building Material Software Copyright © 2006 IBS Lumber Software Inc (TM)
Last modified: November 7, 2011

IBS Sales & Support 888-640-1252
Main Office 888-640-1252
Fax IBS 877-712-8937

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.

remote support: http://www.gotomeeting.com | remote support download program