Format1DSCB.getDS1RECFM() returning wrong value for VB

[cscs010]

It appears that Format1dscb.getDS1RECFM() is returning the wrong value for variable length datasets.
the value returned for these datasets is 80, which according to the IECSDSL1 dsect is fixed length, not variable.
return recfm;
/* From dsect IECSDSL1
*
DS1RECFM DS XL1 RECORD FORMAT
DS1RECFF EQU X'80' 10.. .... F - FIXED LENGTH
DS1RECFV EQU X'40' 01.. .... V - VARIABLE LENGTH
DS1RECFU EQU X'C0' 11.. .... U - UNDEFINED LENGTH
DS1RECFT EQU X'20' ..1. .... T - TRACK OVERFLOW
DS1RECFB EQU X'10' ...1 .... B - BLOCKED: MAY NOT OCCUR WITH
UNDEFINED (U).
DS1RECFS EQU X'08' .... 1... FIXED LENGTH: (X'88')


from Format1dscb.getDS1RECFM()
'XCICS.MVSZTST6.DFHDMPA' on XCICS1 LRECL=32756 BLKSIZE=32760 RECFM=80
'XCICS.MVSZTST6.DFHDMPB' on XCICS1 LRECL=32756 BLKSIZE=32760 RECFM=80

From tso LISTDS command:

XCICS.MVSZTST6.DFHDMPA,
--RECFM-LRECL-BLKSIZE-DSORG,
VB 32756 32760 PS,
--VOLUMES--,
XCICS1,
________
DILAUDID REHAB ADVICE

[cscs010]

sorry, just ignore this.
of course the 80 is decimal not hex 50 which would be variable.
________
HONDA PA50