PANVALET PAN#1 COBOL 77 level statement in WORKING STORAGE
search cancel

PANVALET PAN#1 COBOL 77 level statement in WORKING STORAGE

book

Article ID: 46669

calendar_today

Updated On:

Products

Panvalet

Issue/Introduction

A data line is inserted in COBOL and ASSEMBLER members: 

COBOL:                                                                     

    77  PAN-VALET PICTURE X(24) VALUE 'lvlmember  mm/dd/yy'   

 ASSEMBLER:                                                                

    DC    CL21'lvlmember  mm/dd/yy'

Cause

PANEXIT is usually delivered with just a BR R14 instruction, basically a dummy exit.  14.6 was tested after changing EFFI001 to PANEXIT,
but after testing, the modules were not changed back so the default EFFI001 was not delivered. 

Resolution

Apply RO25651 which contains the original PANEXIT without the EFFI001 source.
The APPLY will assemble and link the original PANEXIT into CBA3LINK resolving the problem.

Additional Information

If you want the additional line and have RO25651 applied you can either
RESTORE RO25651 off your system,
 or,
apply EFF001 from scratch and turn it back on.

You need to retrieve the assembler source for EFF001 from the optional features PANLIB.
Then assemble and link EFF001 source according to page 25 of the 14.6 Exended Features Guide.

The optional features PANLIB was not originally delivered with 14.6 but the 14.5 optional features PANLIB contains identical information so can be used.
There are fixes to create the optional features PANLIBs for 14.6:
  TF98350 14.6 INSTALL MISSING OPTIONAL FEATURES LIBRARY
  TF98347 14.6 INSTALL MISSING USERMOD LIBRARY