Joined: 13 Nov 2010 Posts: 55 Location: Brampton, Ontario, Canada
I am working on an Assembler program that invokes ISPF facilities in batch. I want to retrieve info about a given dataset. I have loaded a copy of ISPFLINK and then I request the ISPF DSINFO with no problems.
I can retrieve the ZDSSPC variable with no problems using VCOPY. I do end up with a problem when I try to retrieve the ZDSTOTA and ZDSTOTU variables.
Below is a code fragment:
MVC WSERVICE,VCOPY ISPF SERVICE NAME
MVC WVNAME,ZDSTOTA ZDSTOTA VARIABLE NAME
LA R1,WSERVICE BUILD ISPLINK PARM LIST
LA R1,WVNAME VARIABLE NAME
LA R1,VLENGTH LENGTH ARRAY
LA R1,WVAR RETURN AREA
LA R1,=CL8'MOVE' MOVE MODE
BALR R14,R15 GET VARIABLE VALUE
LTR R15,R15 CHECK RETURN CODE
BNZ MAINE05 BAIL OUT IF ERROR
VCOPY DC CL8'VCOPY'
VLENGTH DC F'13'
ZDSTOTA DC CL8'ZDSTOTA'
WISPLINK DS A -> ISPLINK
WPARMS DS 8A ISPLINK PARMS
WSERVICE DS CL8 ISPF SERVICE NAME
WVNAME DS CL8 VARIABLE NAME (VCOPY)
WVAR DS CL13 VARIABLE VALUE
Below is the message that I get:
ISPV006 Data truncation occurred-/-Data for CHAR format variable "ZDSTOTA" was too long.
I have googled ZDSTOTA and ISPV006 but none of the hits looked like they described my problem.
I suspect that I am doing something dumb in my VCOPY but I cannot seem to spot the problem.