| Newsgroups |
gmane.comp.emulators.hercules390.mvs |
| Message-ID |
<CAPcd4G8D58S3mxdkuP6UtFPgNQSTHjoeRPhxjTpLPyajYE6okg@mail.gmail.com> |
--000000000000ee187b0594c7dd30
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
Youve got (4+1+8+7+7) 26 bytes 9000 times =3D 234K.
Try this instead ...
01 MSAX-WI-TABLE.
05 M-MSAX-DATA.
10 M-MSAX-MSA PIC X(4) occurs 9000.
10 M-MSAX-SIZE PIC X(01) occurs
9000.
10 M-MSAX-EFF-DATE PIC X(08). occurs 9000.
10 M-MSAX-WAGE-INDX1 PIC S9(02)V9(04) occurs 9000.
10 M-MSAX-WAGE-INDX2 PIC S9(02)V9(04) occurs 9000.
While this will not let you use M-MSAX-DATA(X), You can still use
M-MSAX-MSX(X), etc.
Another thing you could do is change to this (if its not absolutely
necessary to have 9000 rows in the table)
01 MSAX-WI-TABLE.
05 M-MSAX-DATA OCCURS 7000.
10 M-MSAX-MSA PIC X(4).
10 M-MSAX-SIZE PIC X(01).
10 M-MSAX-EFF-DATE PIC 9(08) COMP-3.
10 M-MSAX-WAGE-INDX1 PIC S9(02)V9(04) COMP-3
10 M-MSAX-WAGE-INDX2 PIC S9(02)V9(04) COMP-3.
That would use (4+1+5+4+4) 18 bytes times 7000 =3D 128K by using packed
decimal instead of zoned decimal and shortening the array some.
Joe
On Sun, Oct 13, 2019 at 2:54 AM pj.sund-/[email protected] [H390-MVS] <
[email protected]> wrote:
>
>
> Hello,
>
>
> I am encountering the following compile errors, (using COBUCLG in TK4-):
>
>
> -*STATISTICS* SOURCE RECORDS =3D 1176 DATA DIVISION STATEMENTS =
=3D
> 773 PROCEDURE DIVISION STATEMENTS =3D 124
>
> *OPTIONS IN EFFECT* SIZE =3D 81920 BUF =3D 2768 LINECNT =3D 5=
7
> SPACE1, FLAGW, SEQ, SOURCE
>
> *OPTIONS IN EFFECT* NODMAP, NOPMAP, NOCLIST, SUPMAP, NOXREF,
> NOLOAD, NODECK, APOST, NOTRUNC, NOLIB, NOVERB
>
> *OPTIONS IN EFFECT* ZWB
>
>
> IKF6006I-E SUPMAP SPECIFIED AND E LEVEL DIAGNOSTIC HAS OCCURRED.
> PMAP CLIST LOAD AND DECK WILL BE IGNORED.
>
> 1 23
>
>
> - CARD ERROR MESSAGE
>
>
>
>
>
> 107 IKF2116I-E FIXED LENGTH GROUP ITEM IN WORKING-STORAGE OR
> LINKAGE SECTION IS GT 131K.
>
> 116 IKF2116I-E FIXED LENGTH GROUP ITEM IN WORKING-STORAGE OR
> LINKAGE SECTION IS GT 131K.
>
> 132 IKF2116I-E FIXED LENGTH GROUP ITEM IN WORKING-STORAGE OR
> LINKAGE SECTION IS GT 131K.
>
> 143 IKF2116I-E FIXED LENGTH GROUP ITEM IN WORKING-STORAGE OR
> LINKAGE SECTION IS GT 131K.
>
> 147 IKF2116I-E FIXED LENGTH GROUP ITEM IN WORKING-STORAGE OR
> LINKAGE SECTION IS GT 131K.
>
>
>
> The first one (CARD 107) looks like this:
>
>
> 00106 010600 01 MSAX-WI-TABLE.
>
>
> 00107 010700 05 M-MSAX-DATA OCCURS 9000
>
>
> 00108 010800 INDEXED BY MU1 MU2 MU3.
>
>
> 00109 010900 10 M-MSAX-MSA PIC X(4).
>
>
> 00110 011000 10 M-MSAX-SIZE PIC X(01).
>
>
> 00111 011100 10 M-MSAX-EFF-DATE PIC X(08).
>
>
> 3
>
>
> 00112 011200 10 M-MSAX-WAGE-INDX1 PIC S9(02)V9(04).
>
>
> 00113 011300 10 M-MSAX-WAGE-INDX2 PIC S9(02)V9(04).
>
>
> 00114 011400
>
>
> The other IKF2116I-E errors are look much the same as above.
>
> PS: my source configuration section says:
> CONFIGURATION SECTION.
> SOURCE-COMPUTER. IBM-370.
> OBJECT-COMPUTER. IBM-370.
> if that is relevant.
>
> I have heard that a long time ago - when the MVT compiler was the latest
> and greatest - there was a commonly utilized approach (hack) to get large=
r
> tables in COBOL, but what? or are there some compiler params that would
> work around the issue? Or maybe I am just doing something wrong here?
>
> Many thanks,
>
> PJ.
>
>
>=20
>
--000000000000ee187b0594c7dd30
Content-Type: text/html; charset=UTF-8
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/htm=
l4/strict.dtd">
<html>
<head>
</head>
=20
<body style=3D"background-color: #fff;">
<span style=3D"display:none"> </span>
<!--~-|**|PrettyHtmlStartT|**|-~-->
<div id=3D"ygrp-mlmsg" style=3D"position:relative;">
<div id=3D"ygrp-msg" style=3D"z-index: 1;">
<!--~-|**|PrettyHtmlEndT|**|-~-->
<div id=3D"ygrp-text" >
=20=20=20=20=20=20
=20=20=20=20=20=20
<p><div dir=3D"ltr"><div dir=3D"ltr"><div dir=3D"ltr"><div dir=3D"ltr=
"><div dir=3D"ltr">Youve got (4+1+8+7+7) 26 bytes 9000 time=
s =3D 234K.<div><br></div><div>Try this instead ...</div><div><br></div><di=
v><p style=3D"margin:0px 0px 1em;font-family:Georgia;font-size:13px;">01=C2=
=A0 MSAX-WI-TABLE.=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0=C2=A0</p><p style=3D"margin:0px 0px 1em;fon=
t-family:Georgia;font-size:13px;">=C2=A0 =C2=A0 =C2=A0 05=C2=A0 M-MSAX-DATA=
.. =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0</p>=
<p style=3D"margin:0px 0px 1em;font-family:Georgia;font-size:13px;">=C2=A0 =
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 10=C2=A0 M-MSAX-MSA =C2=A0 =C2=A0=
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 PIC =
X(4) occurs 9000. =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =
=C2=A0 =C2=A0</p><p style=3D"margin:0px 0px 1em;font-family:Georgia;font-si=
ze:13px;">=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 10=C2=A0 M-MSAX-=
SIZE =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =
=C2=A0 =C2=A0 PIC X(01) occurs 9000. =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0 =C2=A0 =C2=A0 =C2=A0=C2=A0</p><p style=3D"margin:0px 0px 1em;font-famil=
y:Georgia;font-size:13px;">=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0=
10=C2=A0 M-MSAX-EFF-DATE =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0P=
IC X(08). occurs 9000. =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0 =C2=A0</p><p style=3D"margin:0px 0px 1em;font-family:Georgia;font-size:=
13px;">=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 10=C2=A0 M-MSAX-WAG=
E-INDX1 =C2=A0 =C2=A0 =C2=A0 PIC S9(02)V9(04) occurs 9000. =C2=A0 =C2=A0 =
=C2=A0 =C2=A0 =C2=A0 =C2=A0</p><p style=3D"margin:0px 0px 1em;font-family:G=
eorgia;font-size:13px;">=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 10=
=C2=A0 M-MSAX-WAGE-INDX2 =C2=A0 =C2=A0 =C2=A0 PIC S9(02)V9(04) occurs 9000.=
</p><p style=3D"margin:0px 0px 1em;font-family:Georgia;font-size:13px;"><br=
></p><p style=3D"margin:0px 0px 1em;font-family:Georgia;font-size:13px;">Wh=
ile this will not let you use M-MSAX-DATA(X), You can still use M-MSAX-MSX(=
X), etc.</p><p style=3D"margin:0px 0px 1em;font-family:Georgia;font-size:13=
px;"><br></p><p style=3D"margin:0px 0px 1em;font-family:Georgia;font-size:1=
3px;">Another thing you could do is change to this (if its not absolutely n=
ecessary to have 9000 rows in the table)</p><p style=3D"color:rgb(0,0,0);ma=
rgin:0px 0px 1em;font-family:Georgia;font-size:13px;">01=C2=A0 MSAX-WI-TABL=
E.=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =
=C2=A0 =C2=A0=C2=A0</p><p style=3D"color:rgb(0,0,0);margin:0px 0px 1em;font=
-family:Georgia;font-size:13px;">=C2=A0 =C2=A0 =C2=A0 05=C2=A0 M-MSAX-DATA =
OCCURS 7000. =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0=
=C2=A0</p><p style=3D"color:rgb(0,0,0);margin:0px 0px 1em;font-family:Geor=
gia;font-size:13px;">=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 10=C2=
=A0 M-MSAX-MSA =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0 =C2=A0 =C2=A0 =C2=A0 PIC X(4). =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0</p><p style=3D"color:rgb(0,0,0);margin:0px =
0px 1em;font-family:Georgia;font-size:13px;">=C2=A0 =C2=A0 =C2=A0 =C2=A0 =
=C2=A0 =C2=A0 =C2=A0 10=C2=A0 M-MSAX-SIZE =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 PIC X(01). =C2=A0 =C2=
=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0</p><p style=3D"margin:0px 0px 1em;fo=
nt-family:Georgia;"><span style=3D"font-size:medium;color:rgb(0,0,0);">=C2=
=A0 =C2=A0 </span><span style=3D"color:rgb(0,0,0);">=C2=A0 =C2=A0</span><sp=
an style=3D"color:rgb(0,0,0);">=C2=A0 =C2=A0 =C2=A010 M-MSAX-EFF-DATE =C2=
=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0PIC 9(08) COMP-3.=C2=A0=
</span></p><p style=3D"color:rgb(0,0,0);margin:0px 0px 1em;font-family:Geor=
gia;font-size:13px;">=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A010=C2=A0 M-MSAX-WAGE-INDX1 =C2=A0 =C2=A0 =C2=A0 PIC S9(02)V9(04) COMP-3 =
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0</p><p style=3D"color:rgb(0,0,0);m=
argin:0px 0px 1em;font-family:Georgia;font-size:13px;">=C2=A0 =C2=A0 =C2=A0=
=C2=A0 =C2=A0 =C2=A0 =C2=A0 10=C2=A0 M-MSAX-WAGE-INDX2 =C2=A0 =C2=A0 =C2=
=A0 PIC S9(02)V9(04) COMP-3.</p><p style=3D"color:rgb(0,0,0);margin:0px 0px=
1em;font-family:Georgia;font-size:13px;"><br></p><p style=3D"color:rgb(0,0=
,0);margin:0px 0px 1em;font-family:Georgia;font-size:13px;">That would use =
(4+1+5+4+4) 18 bytes times 7000 =3D 128K by using packed de=
cimal instead of zoned decimal and shortening the array some.</p><p style=
=3D"margin:0px 0px 1em;font-family:Georgia;font-size:13px;">Joe</p></div></=
div></div></div></div></div><br><div class=3D"gmail_quote"><div dir=3D"ltr"=
class=3D"gmail_attr">On Sun, Oct 13, 2019 at 2:54 AM <a href=3D"mailto:pj.=
sund-/[email protected]">pj.sund-/[email protected]</a> [H390-MVS] <<a href=3D"mailto:H390=
[email protected]">[email protected]</a>> wrote:<br></div><blo=
ckquote class=3D"gmail_quote" style=3D"margin:0px 0px 0px 0.8ex;border-left=
-width:1px;border-left-style:solid;border-left-color:rgb(204,204,204);">
<u></u>
=20
<div style=3D"background-color:rgb(255,255,255);">
<span>=C2=A0</span>
<div id=3D"gmail-m_8663406862091868469ygrp-mlmsg">
<div id=3D"gmail-m_8663406862091868469ygrp-msg">
<div id=3D"gmail-m_8663406862091868469ygrp-text">
=20=20=20=20=20=20
=20=20=20=20=20=20
<p></p><p><span>Hello,</span></p><p><span><br></span></p><p><span>I a=
m encountering the following compile errors, (using COBUCLG in TK4-):</span=
></p><p><span><br></span></p><p>-*STATISTICS*=C2=A0 =C2=A0 =C2=A0SOURCE REC=
ORDS =3D=C2=A0 1176=C2=A0 =C2=A0 =C2=A0DATA DIVISION STATEMENTS =3D=C2=A0 =
=C2=A0773=C2=A0 =C2=A0 =C2=A0PROCEDURE DIVISION STATEMENTS =3D=C2=A0 =C2=A0=
124=C2=A0 =C2=A0</p><p>=C2=A0*OPTIONS IN EFFECT*=C2=A0 =C2=A0 =C2=A0SIZE =
=3D=C2=A0 =C2=A081920=C2=A0 BUF =3D=C2=A0 =C2=A0 2768=C2=A0 LINECNT =3D 57=
=C2=A0 SPACE1, FLAGW,=C2=A0 =C2=A0SEQ,=C2=A0 =C2=A0SOURCE=C2=A0 =C2=A0 =C2=
=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =
=C2=A0</p><p>=C2=A0*OPTIONS IN EFFECT*=C2=A0 =C2=A0 =C2=A0NODMAP, NOPMAP, N=
OCLIST,=C2=A0 =C2=A0SUPMAP, NOXREF, NOLOAD, NODECK, APOST, NOTRUNC, NOLIB, =
NOVERB=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0=C2=A0</p><p>=C2=A0*O=
PTIONS IN EFFECT*=C2=A0 =C2=A0 =C2=A0 =C2=A0ZWB=C2=A0 =C2=A0 =C2=A0 =C2=A0 =
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0=
=C2=A0</p><p>=C2=A0 IKF6006I-E=C2=A0 =C2=A0 =C2=A0SUPMAP SPECIFIED AND E LE=
VEL DIAGNOSTIC HAS OCCURRED. PMAP CLIST LOAD AND DECK WILL BE IGNORED.=C2=
=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0</p><p>1=C2=A0 23=C2=A0=
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0</p><p>- CARD=C2=A0 =C2=A0ERROR MESSA=
GE=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0=C2=A0</p><p>=C2=A0 =
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0=C2=A0</p><p>=C2=A0 107=
=C2=A0 =C2=A0 IKF2116I-E=C2=A0 =C2=A0 =C2=A0FIXED LENGTH GROUP ITEM IN WORK=
ING-STORAGE OR LINKAGE SECTION IS GT 131K.=C2=A0</p><p>=C2=A0 116=C2=A0 =C2=
=A0 IKF2116I-E=C2=A0 =C2=A0 =C2=A0FIXED LENGTH GROUP ITEM IN WORKING-STORAG=
E OR LINKAGE SECTION IS GT 131K.=C2=A0</p><p>=C2=A0 132=C2=A0 =C2=A0 IKF211=
6I-E=C2=A0 =C2=A0 =C2=A0FIXED LENGTH GROUP ITEM IN WORKING-STORAGE OR LINKA=
GE SECTION IS GT 131K.=C2=A0</p><p>=C2=A0 143=C2=A0 =C2=A0 IKF2116I-E=C2=A0=
=C2=A0 =C2=A0FIXED LENGTH GROUP ITEM IN WORKING-STORAGE OR LINKAGE SECTION=
IS GT 131K.=C2=A0</p><p><span></span></p><p>=C2=A0 147=C2=A0 =C2=A0 IKF211=
6I-E=C2=A0 =C2=A0 =C2=A0FIXED LENGTH GROUP ITEM IN WORKING-STORAGE OR LINKA=
GE SECTION IS GT 131K.=C2=A0</p><p><br></p><p><br></p><p>The first one (CAR=
D 107) looks like this:</p><p><br></p><p>00106=C2=A0 =C2=A0010600 01=C2=A0 =
MSAX-WI-TABLE.=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =
=C2=A0 =C2=A0 =C2=A0 =C2=A0=C2=A0</p><p>00107=C2=A0 =C2=A0010700=C2=A0 =C2=
=A0 =C2=A005=C2=A0 M-MSAX-DATA=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0 =C2=A0 OCCURS 9000=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0 =C2=A0=C2=A0</p><p>00108=C2=A0 =C2=A0010800=C2=A0 =C2=A0 =C2=A0 =C2=A0 =
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0 =C2=A0 =C2=A0 =C2=A0 INDEXED BY MU1 MU2 MU3.=C2=A0 =C2=A0 =C2=A0=C2=A0<=
/p><p>00109=C2=A0 =C2=A0010900=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A010=C2=A0 M-=
MSAX-MSA=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0PIC X(4).=C2=A0 =C2=
=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0=C2=A0</p><p>001=
10=C2=A0 =C2=A0011000=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A010=C2=A0 M-MSAX-SIZE=
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 PIC X(01).=C2=A0 =C2=A0 =C2=A0 =
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0</p><p>00111=C2=A0 =C2=A001=
1100=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A010=C2=A0 M-MSAX-EFF-DATE=C2=A0 =C2=A0=
=C2=A0 =C2=A0 PIC X(08).=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =
=C2=A0 =C2=A0 =C2=A0</p><p>=C2=A0 =C2=A03=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0=
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0 =C2=A0</p><p>00112=C2=A0 =C2=A0011200=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0=
10=C2=A0 M-MSAX-WAGE-INDX1=C2=A0 =C2=A0 =C2=A0 PIC S9(02)V9(04).=C2=A0 =C2=
=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0=C2=A0</p><p>00113=C2=A0 =C2=A0011300=C2=A0 =
=C2=A0 =C2=A0 =C2=A0 =C2=A010=C2=A0 M-MSAX-WAGE-INDX2=C2=A0 =C2=A0 =C2=A0 P=
IC S9(02)V9(04).=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0=C2=A0</p><p>00114=
=C2=A0 =C2=A0011400=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =
=C2=A0 =C2=A0 =C2=A0 =C2=A0</p><div><br></div><div>The other=C2=A0<span sty=
le=3D"word-spacing:normal;">IKF2116I-E errors are look much the same as abo=
ve.</span></div><div><span style=3D"word-spacing:normal;"><br></span></div>=
<div>PS: my source configuration section says:</div><div><div>CONFIGURATION=
SECTION.=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0=C2=A0</div=
><div>SOURCE-COMPUTER.=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 IBM-370.=C2=
=A0=C2=A0</div><div>OBJECT-COMPUTER.=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0 IBM-370.=C2=A0=C2=A0</div><div>if that is relevant.</div><div><br></div=
></div><div>I have heard that a long time ago - when the MVT compiler was t=
he latest and greatest - there was a commonly utilized approach (hack) to g=
et larger tables in COBOL, but what? or are there some compiler params that=
would work around the issue? Or maybe I am just doing something wrong here=
?</div><div><br></div><div>Many thanks,</div><div><br></div><div>PJ.</div><=
div><br></div><div><br></div><p></p>
</div>
=20=20=20=20=20
=20=20=20=20
<div style=3D"color:rgb(255,255,255);height:0px;"></div>
</div>
=20=20
</div></div></blockquote></div>
</p>
</div>
=20=20=20=20=20
<!--~-|**|PrettyHtmlStart|**|-~-->
<div style=3D"color: #fff; height: 0;">__._,_.___</div>
=20=20=20=20=20=20=20=20=20=20
=20=20
=20
=20=20=20=20
<div style=3D"clear:both"> </div>
<div id=3D"fromDMARC" style=3D"margin-top: 10px;">
<hr style=3D"height:2px ; border-width:0; color:#E3E3E3; background=
-color:#E3E3E3;">
Posted by: Joe Monk <[email protected]> <hr style=3D=
"height:2px ; border-width:0; color:#E3E3E3; background-color:#E3E3E3;">
</div>
<div style=3D"clear:both"> </div>
<table cellspacing=3D4px style=3D"margin-top: 10px; margin-bottom: 10px=
; color: #2D50FD;">
<tbody>
<tr>
<td style=3D"font-size: 12px; font-family: arial; font-weight: bo=
ld; padding: 7px 5px 5px;" >
<a style=3D"text-decoration: none; color: #2D50FD=
" href=3D"https://groups.yahoo.com/neo/groups/H390-MVS/conversations/messag=
es/19316;_ylc=3DX3oDMTJxMTVyMTVyBF9TAzk3MzU5NzE0BGdycElkAzI1ODc5NjYEZ3Jwc3B=
JZAMxNzA1MzA5NTQ4BG1zZ0lkAzE5MzE2BHNlYwNmdHIEc2xrA3JwbHkEc3RpbWUDMTU3MDk2MT=
AyOA--?act=3Dreply&messageNum=3D19316">Reply via web post</a>
</td>
<td>•</td>
<td style=3D"font-size: 12px; font-family: arial; padding: 7px 5p=
x 5px;" >
<a href=3D"mailto:[email protected]?subject=3DRe%3A%20%5BH390=
-MVS%5D%20COBOL%20compile%20error%20%28TK4-%20compiler%29%20TABLE%20size%20=
problem%2E" style=3D"text-decoration: none; color: #2D50FD;">
Reply to sender </a>
</td>
<td>•</td>
<td style=3D"font-size: 12px; font-family: arial; padding: 7px 5p=
x 5px;">
<a href=3D"mailto:[email protected]?subject=3DRe%3A%20%5=
BH390-MVS%5D%20COBOL%20compile%20error%20%28TK4-%20compiler%29%20TABLE%20si=
ze%20problem%2E" style=3D"text-decoration: none; color: #2D50FD">
Reply to group </a>
</td>
<td>•</td>
<td style=3D"font-size: 12px; font-family: arial; padding: 7px 5p=
x 5px;" >
<a href=3D"https://groups.yahoo.com/neo/groups/H390-MVS/convers=
ations/newtopic;_ylc=3DX3oDMTJlczQydTNoBF9TAzk3MzU5NzE0BGdycElkAzI1ODc5NjYE=
Z3Jwc3BJZAMxNzA1MzA5NTQ4BHNlYwNmdHIEc2xrA250cGMEc3RpbWUDMTU3MDk2MTAyOA--" s=
tyle=3D"text-decoration: none; color: #2D50FD">Start a New Topic</a>
</td>
<td>•</td>
<td style=3D"font-size: 12px; font-family: arial; padding: 7px 5p=
x 5px;color: #2D50FD;" >
<a href=3D"https://groups.yahoo.com/neo/groups/=
H390-MVS/conversations/topics/19303;_ylc=3DX3oDMTM2cGphbHBqBF9TAzk3MzU5NzE0=
BGdycElkAzI1ODc5NjYEZ3Jwc3BJZAMxNzA1MzA5NTQ4BG1zZ0lkAzE5MzE2BHNlYwNmdHIEc2x=
rA3Z0cGMEc3RpbWUDMTU3MDk2MTAyOAR0cGNJZAMxOTMwMw--" style=3D"text-decoration=
: none; color: #2D50FD;">Messages in this topic</a>
(6)
</td>
</tr>
</tbody>
</table>
=20=20=20=20=20=20=20=20
<!------- Start Nav Bar ------>
=20
<!-- |**|begin egp html banner|**| -->
<div id=3D"ygrp-vital" style=3D"background-color: #f2f2f2; font-family: Ver=
dana; font-size: 10px; margin-bottom: 10px; padding: 10px;">
<span id=3D"vithd" style=3D"font-weight: bold; color: #333; text-transf=
orm: uppercase; "><a href=3D"https://groups.yahoo.com/neo/groups/H390-MVS/i=
nfo;_ylc=3DX3oDMTJlZGo0YjNxBF9TAzk3MzU5NzE0BGdycElkAzI1ODc5NjYEZ3Jwc3BJZAMx=
NzA1MzA5NTQ4BHNlYwN2dGwEc2xrA3ZnaHAEc3RpbWUDMTU3MDk2MTAyOA--" style=3D"text=
-decoration: none;">Visit Your Group</a></span>
<ul style=3D"list-style-type: none; margin: 0; padding: 0; display: in=
line;">
</ul>
</div>
<div id=3D"ft" style=3D"font-family: Arial; font-size: 11px; margin-top: 5p=
x; padding: 0 2px 0 0; clear: both;">
<a href=3D"https://groups.yahoo.com/neo;_ylc=3DX3oDMTJkZ2xwMGU2BF9TAzk3ND=
c2NTkwBGdycElkAzI1ODc5NjYEZ3Jwc3BJZAMxNzA1MzA5NTQ4BHNlYwNmdHIEc2xrA2dmcARzd=
GltZQMxNTcwOTYxMDI4" style=3D"float: left;"><img src=3D"https://s.yimg.com/=
ru/0.9.12/min/css/yahoo_en-US_f_pw_101x21.png" height=3D"21" width=3D"101" =
alt=3D"Yahoo! Groups" style=3D"border: 0;"/></a>
<div style=3D"color: #747575; float: right;"> • <a href=3D"https://i=
nfo.yahoo.com/privacy/us/yahoo/groups/details.html" style=3D"text-decoratio=
n: none;">Privacy</a> • <a href=3D"mailto:H390-MVS-unsubscribe@yahoogr=
oups.com?subject=3DUnsubscribe" style=3D"text-decoration: none;">Unsubscrib=
e</a> • <a href=3D"https://info.yahoo.com/legal/us/yahoo/utos/terms/" =
style=3D"text-decoration: none;">Terms of Use</a> </div>
</div>
<br>
<!-- |**|end egp html banner|**| -->
</div> <!-- ygrp-msg -->
=20
<!-- Sponsor -->
<!-- |**|begin egp html banner|**| -->
<div id=3D"ygrp-sponsor" style=3D"width:160px; float:right; clear:none; m=
argin:0 0 25px 0; background: #fff;">
<!-- Start Recommendations -->
<div id=3D"ygrp-reco">
</div>
<!-- End Recommendations -->
</div> <!-- |**|end egp html banner|**| -->
<div style=3D"clear:both; color: #FFF; font-size:1px;">.</div>
</div>
<img src=3D"http://geo.yahoo.com/serv?s=3D97359714/grpId=3D2587966/grpspI=
d=3D1705309548/msgId=3D19316/stime=3D1570961028" width=3D"1" height=3D"1"> =
<br>
<img src=3D"http://y.analytics.yahoo.com/fpc.pl?ywarid=3D515FB27823A7407E&a=
=3D10001310322279&js=3Dno&resp=3Dimg" width=3D"1" height=3D"1">=20
<div style=3D"color: #fff; height: 0;">__,_._,___</div>
<!--~-|**|PrettyHtmlEnd|**|-~-->
</body>
<!--~-|**|PrettyHtmlStart|**|-~-->
<head>
<style type=3D"text/css">
<!--
#ygrp-mkp {
border: 1px solid #d8d8d8;
font-family: Arial;
margin: 10px 0;
padding: 0 10px;
}
#ygrp-mkp hr {
border: 1px solid #d8d8d8;
}
#ygrp-mkp #hd {
color: #628c2a;
font-size: 85%;
font-weight: 700;
line-height: 122%;
margin: 10px 0;
}
#ygrp-mkp #ads {
margin-bottom: 10px;
}
#ygrp-mkp .ad {
padding: 0 0;
}
#ygrp-mkp .ad p {
margin: 0;
}
#ygrp-mkp .ad a {
color: #0000ff;
text-decoration: none;
}
#ygrp-sponsor #ygrp-lc {
font-family: Arial;
}
#ygrp-sponsor #ygrp-lc #hd {
margin: 10px 0px;
font-weight: 700;
font-size: 78%;
line-height: 122%;
}
#ygrp-sponsor #ygrp-lc .ad {
margin-bottom: 10px;
padding: 0 0;
}
#actions {
font-family: Verdana;
font-size: 11px;
padding: 10px 0;
}
#activity {
background-color: #e0ecee;
float: left;
font-family: Verdana;
font-size: 10px;
padding: 10px;
}
#activity span {
font-weight: 700;
}
#activity span:first-child {
text-transform: uppercase;
}
#activity span a {
color: #5085b6;
text-decoration: none;
}
#activity span span {
color: #ff7900;
}
#activity span .underline {
text-decoration: underline;
}
.attach {
clear: both;
display: table;
font-family: Arial;
font-size: 12px;
padding: 10px 0;
width: 400px;
}
.attach div a {
text-decoration: none;
}
.attach img {
border: none;
padding-right: 5px;
}
.attach label {
display: block;
margin-bottom: 5px;
}
.attach label a {
text-decoration: none;
}
=20=20
blockquote {
margin: 0 0 0 4px;
}
.bold {
font-family: Arial;
font-size: 13px;
font-weight: 700;
}
.bold a {
text-decoration: none;
}
dd.last p a {
font-family: Verdana;
font-weight: 700;
}
dd.last p span {
margin-right: 10px;
font-family: Verdana;
font-weight: 700;
}
dd.last p span.yshortcuts {
margin-right: 0;
}
div.attach-table div div a {
text-decoration: none;
}
div.attach-table {
width: 400px;
}
div.file-title a, div.file-title a:active, div.file-title a:hover, div.fi=
le-title a:visited {
text-decoration: none;
}
div.photo-title a, div.photo-title a:active, div.photo-title a:hover, div=
..photo-title a:visited {
text-decoration: none;
}
div#ygrp-mlmsg #ygrp-msg p a span.yshortcuts {
font-family: Verdana;
font-size: 10px;
font-weight: normal;
}
.green {
color: #628c2a;
}
.MsoNormal {
margin: 0 0 0 0;
}
o {
font-size: 0;
}
#photos div {
float: left;
width: 72px;
}
#photos div div {
border: 1px solid #666666;
height: 62px;
overflow: hidden;
width: 62px;
}
#photos div label {
color: #666666;
font-size: 10px;
overflow: hidden;
text-align: center;
white-space: nowrap;
width: 64px;
}
#reco-category {
font-size: 77%;
}
#reco-desc {
font-size: 77%;
}
.replbq {
margin: 4px;
}
#ygrp-actbar div a:first-child {
/* border-right: 0px solid #000;*/
margin-right: 2px;
padding-right: 5px;
}
#ygrp-mlmsg {
font-size: 13px;
font-family: Arial, helvetica,clean, sans-serif;
*font-size: small;
*font: x-small;
}
#ygrp-mlmsg table {
font-size: inherit;
font: 100%;
}
#ygrp-mlmsg select, input, textarea {
font: 99% Arial, Helvetica, clean, sans-serif;
}
#ygrp-mlmsg pre, code {
font:115% monospace;
*font-size:100%;
}
#ygrp-mlmsg * {
line-height: 1.22em;
}
#ygrp-mlmsg #logo {
padding-bottom: 10px;
}
#ygrp-msg p a {
font-family: Verdana;
}
#ygrp-msg p#attach-count span {
color: #1E66AE;
font-weight: 700;
}
#ygrp-reco #reco-head {
color: #ff7900;
font-weight: 700;
}
#ygrp-reco {
margin-bottom: 20px;
padding: 0px;
}
#ygrp-sponsor #ov li a {
font-size: 130%;
text-decoration: none;
}
#ygrp-sponsor #ov li {
font-size: 77%;
list-style-type: square;
padding: 6px 0;
}=20
#ygrp-sponsor #ov ul {
margin: 0;
padding: 0 0 0 8px;
}
#ygrp-text {
font-family: Georgia;
}
#ygrp-text p {
margin: 0 0 1em 0;
}
#ygrp-text tt {
font-size: 120%;
}
#ygrp-vital ul li:last-child {
border-right: none !important;=20
}=20
-->
</style>
</head>
<!--~-|**|PrettyHtmlEnd|**|-~-->
</html>
<!-- end group email -->
--000000000000ee187b0594c7dd30--