CA Panvalet DATA Type incorrectly formatted
Article ID: 131624
Updated On:
Products
Panvalet
Issue/Introduction
A Panvalet member was created with LANG TYPE ‘DATA’ and the ISPF profile has "NUMBER OFF".
When the DATA member is browsed in PVEDIT it displays correctly:
PVEDIT ---- IPRFX.TEST.PANLIB(A001)-------------------------- COLUMNS 001 072
COMMAND ===> SCROLL ===> CSR
****** ***************************** Top of Data ******************************
=PROF> ....DATA (FIXED - 80)....RECOVERY OFF....NUMBER OFF.....................
=PROF> ....CAPS ON....HEX OFF....NULLS ON STD....TABS OFF....SETUNDO STG.......
=PROF> ....AUTOSAVE ON....AUTONUM OFF....AUTOLIST OFF....STATS OFF.............
=PROF> ....PROFILE UNLOCK....IMACRO NONE....PACK OFF....NOTE ON................
=PROF> ....HILITE OFF CURSOR FIND..............................................
000001 010201850085353HA 13G000A4204700845000086400008850000908000093100010000
000002 020201850085353HA 13G000A4204700845000086400008850000908000093100010000
000003 030201850085353HA 13G000A4204700845000086400008850000908000093100010000
000004 040201850085353HA 13G000A4204700845000086400008850000908000093100010000
000005 050201850085353HA 13G000A4204700845000086400008850000908000093100010000
****** **************************** Bottom of Data ****************************
COMMAND ===> SCROLL ===> CSR
****** ***************************** Top of Data ******************************
=PROF> ....DATA (FIXED - 80)....RECOVERY OFF....NUMBER OFF.....................
=PROF> ....CAPS ON....HEX OFF....NULLS ON STD....TABS OFF....SETUNDO STG.......
=PROF> ....AUTOSAVE ON....AUTONUM OFF....AUTOLIST OFF....STATS OFF.............
=PROF> ....PROFILE UNLOCK....IMACRO NONE....PACK OFF....NOTE ON................
=PROF> ....HILITE OFF CURSOR FIND..............................................
000001 010201850085353HA 13G000A4204700845000086400008850000908000093100010000
000002 020201850085353HA 13G000A4204700845000086400008850000908000093100010000
000003 030201850085353HA 13G000A4204700845000086400008850000908000093100010000
000004 040201850085353HA 13G000A4204700845000086400008850000908000093100010000
000005 050201850085353HA 13G000A4204700845000086400008850000908000093100010000
****** **************************** Bottom of Data ****************************
When the Data member is edited in PVEDIT, the ISPF profile is changed to "NUMBER ON COB"
PVEDIT ---- IPRFX.TEST.PANLIB(A001)------------------------- COLUMNS 007 078
COMMAND ===> SCROLL ===> CSR
****** ***************************** Top of Data ******************************
=PROF> ....DATA (FIXED - 80)....RECOVERY OFF....NUMBER ON COB..................
=PROF> ....CAPS ON....HEX OFF....NULLS ON STD....TABS OFF....SETUNDO STG.......
=PROF> ....AUTOSAVE ON....AUTONUM OFF....AUTOLIST OFF....STATS OFF.............
=PROF> ....PROFILE UNLOCK....IMACRO NONE....PACK OFF....NOTE ON................
=PROF> ....HILITE OFF CURSOR FIND..............................................
=NOTE= CAUTION: PROFILE CHANGED TO "NUMBER ON COB" FROM "NUMBER OFF"
=NOTE= BECAUSE OF SEQUENCE NUMBERS OR LACK OF THEM FOUND IN DATA.
010201 850085353HA 13G000A4204700845000086400008850000908000093100010000
020201 850085353HA 13G000A4204700845000086400008850000908000093100010000
030201 850085353HA 13G000A4204700845000086400008850000908000093100010000
040201 850085353HA 13G000A4204700845000086400008850000908000093100010000
050201 850085353HA 13G000A4204700845000086400008850000908000093100010000
****** **************************** Bottom of Data ****************************
COMMAND ===> SCROLL ===> CSR
****** ***************************** Top of Data ******************************
=PROF> ....DATA (FIXED - 80)....RECOVERY OFF....NUMBER ON COB..................
=PROF> ....CAPS ON....HEX OFF....NULLS ON STD....TABS OFF....SETUNDO STG.......
=PROF> ....AUTOSAVE ON....AUTONUM OFF....AUTOLIST OFF....STATS OFF.............
=PROF> ....PROFILE UNLOCK....IMACRO NONE....PACK OFF....NOTE ON................
=PROF> ....HILITE OFF CURSOR FIND..............................................
=NOTE= CAUTION: PROFILE CHANGED TO "NUMBER ON COB" FROM "NUMBER OFF"
=NOTE= BECAUSE OF SEQUENCE NUMBERS OR LACK OF THEM FOUND IN DATA.
010201 850085353HA 13G000A4204700845000086400008850000908000093100010000
020201 850085353HA 13G000A4204700845000086400008850000908000093100010000
030201 850085353HA 13G000A4204700845000086400008850000908000093100010000
040201 850085353HA 13G000A4204700845000086400008850000908000093100010000
050201 850085353HA 13G000A4204700845000086400008850000908000093100010000
****** **************************** Bottom of Data ****************************
This is causing incorrect alignment of the data.
Environment
Release:
Component: PANVLT
Component: PANVLT
Cause
If a member defined as DATA format contains numeric data in col 1-6 or 73-80, the ISPF profile will be changed to NUMBER ON COB or NUMBER ON STD.
Resolution
To prevent this, apply 2 Special fixes -
$4SF004 -- SPECIAL ZAP TO PREVENT "NUM ON CBL" FOR TYPE = DATA
$4SF013 -- SPECIAL ZAP TO PREVENT NUMBER ON STANDARD WHEN TYPE=DATA.
$4SF004 -- SPECIAL ZAP TO PREVENT "NUM ON CBL" FOR TYPE = DATA
$4SF013 -- SPECIAL ZAP TO PREVENT NUMBER ON STANDARD WHEN TYPE=DATA.
Feedback
Yes
No
Powered by
