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

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

book

Article ID: 44932

calendar_today

Updated On:

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)