Invoking Panvalet PAN#1 utility in TSO CLIST gets ABEND U0201

Products

• Panvalet

Issue/Introduction

TSO CLIST that executes PAN#1:

PROC 1 MEMBER

FREE FI(PANDD1 PANDD2 SYSPRINT SYSPUNCH SYSIN)

FREE ATTRLIST(AT1 AT2)

ATTRIB AT1 LRECL(80) BLKSIZE(800) RECFM(F B)

ATTRIB AT2 LRECL(121) BLKSIZE(1210) RECFM(F B)

ALLOC FI(PANDD1) DA('SYSPROG.PANLIB') SHR

ALLOC FI(PANDD2) DA(*) USING(AT1) SHR

ALLOC FI(SYSPUNCH) DA('NULLFILE') USING(AT1) SHR

ALLOC FI(SYSPRINT) DA(*) USING(AT2) SHR

ALLOC FI(SYSIN) DA('SYSPRG6.UPDATE.ASM(&MEMBER.)') SHR

PAN#1

 

When running this CLIST, PAN#1 abends with a U0201 occurring at PANIO17+76E.

 

The Messages Guide indicates that the U0201 is a "PARM field in error".

However, a PARM in not passed to PAN#1 and running the same SYSIN input  through PAN#1 in batch mode is successful.

Cause

TSO is passing a parm to PAN#1.

The save area trace shows a value of 0004409C in R1 at entry to PAN#1.

It looks like a list of addresses with no end (x'80')

Resolution

Change the way that the CLIST invokes PAN#1 from just specifying the program name

…ALLOC FI(SYSIN) DA('SYSPRG6.UPDATE.ASM(&MEMBER.)') SHR

PAN#1

to a CALL:

…ALLOC FI(SYSIN) DA('SYSPRG6.UPDATE.ASM(&MEMBER.)') SHR

CALL *(PAN#1)