CSMP_APARs CSMP APARs

CSMP_APARs CSMP_APARs

User Manual: CSMP_APARs

Open the PDF directly: View PDF PDF.
Page Count: 12

Asi,l
Proaral1l
library
IBM
J,n:·,,,".
ll·~
Sy~!t"'tnS
Englrlt'.>,
... ,
Dt'!
f
14
1 c-:,rf'I"T'.>
tJ,H~
.'
1 •
t·
,
ChIY{)l1,j
"'U
Tok)o
J.lra.n
Canadian
Program
Library
IEH.1
Cdna.ja
Ltd
11·,t/
Eqllnlun
Ave
E
[l
,n
M,I':,
40:'
On!
(,1I1,1'1.t
APRIL
1971
HEMORANDUM
TO:
European
Program
library
IBM France
23
AlI~e-Miilllasson
F.92
·Bou:ogr,e·8,
t!anc.ourt
France
S)Clete
Anonyme
Au
Cap:tal
de
3H.424
000
F·f'.C
{Seine
55B.ll
8461
Program
Information
Dept.
IBM
Corporation
40
Saw
Mill
River
Road
Ha
...
lhorne.
New
York
10532
UnIted
Slates
SOU~h
America-n---
Program Library
IBM
do
Brasil, Ltda
A'Ienida
Presidente
Vargas 642, 4 Andar
Cai.a
PoslaI1830·ZC-OO
,R,IO
d~
.Janeiro, Brazil
Users
ofS/360
Continuous
System
Modeling
Program
(360A-CX-16X)--
V1M2
SUBJECT: .
APAR
Letters
The
following
is
the
list
of
APAR
letters
that
are
currently
active:
PA-
366
PA-l92
PA-189
PA-118
PA-ll
7
PA-114
PA-113
PA-1l2
PA-lll
PA-093
'PA-066
PA-OS2
PA-046
PA-042
PA-01S
PA-012
PA-Oll
PA-01D
PA-008
APS-
376
APS-
374
South Pacific
Program Library
IBM
Au.tralia,
Ltd.
Box 3318
GP.O.
Sydney,
N.SW.
Australia
201AP
International Business
Machines
Corporation
MEMORANDUM
TO:
Users of the
5/360
Continuous
5Y,stem
Modeling Program
Type
II
Au"ust
1969
-----------r~~~-----------------r~-----------------------
l
APAR.
/;
I
Program
If
I APS-374 .
SUBJECT:
,Program
Name
:
5/360
Continuous System Modeling
360A-CX-16X
Program
---lv.-~:O\(l1l
I
:\l"di~l.ation
Level
___
.
___
i-
____
-.l
_____
_
A FORTRAN
compile
error
in
the first model will
prevent
SljD~.:·:ue·t
'"
",:ih
kr
ney.,
models when
stacking
jobs.
When the FORTRAN compiler was envoked
by
an
A
TTACH
macr~,
in
the DEJCSMP 2
subroutine,
the corresponding
ECB
Yves
not
reinitialized
and
hence
the return
code
of the
first compile was the only one
ever
received.
5hould the first FORTRAN compile be in
error this y.,ould
prevent
ell
subsequent linkt:dits
since
all
subsequent compile return codes
would
appear
the some.
To
correct
this
error,
insert the following cord
in
the DEJC5MP2
source
deck
between
cord numbers DEJ2 180
and
DEJ2 190:
XC
ECBLOCK, ECBLOCK ZERO
ECB
DEJ2 185
Follow the procedure
described
under "Modifying DEJCSMP2"
in
th.: CSMP Opt:lotors
Manual
to
incorporate
this
change
in
the system.
This
proglam modific(;ticl1
"ill
be
in-
corporated
in
a future
modification
level.
l)..-,}-71
CC:SE
Hana~ers
DP
Application
Program
Standards
APAR
PROCESSING
112
East
Post Road
White Plains,
N.Y,
10601
20059
APAR Letter
International Business Machin
••
Corporation
MEMORANDUM
TO:
Users
of
the
S/360
Continuous System
Modeling
Program
Type
II
August 1969
International Business Machines Corporation
II
rn
llir
MEMORANDUM
TO:
Users
of
S/360
Continuous
System
Modeling
Program
i
Type
II
APAR.
1#
Program
* I APAR. #
Program
It
I APS-376
360A-CX-16X
SUBJECT:'
PA-OOB
360A-CX~16X
SUBJECT:
Program
Name Modification Level .
,Program
Name .
'.
:
I
S/360
Continuous System
Modeling
Program 2 '
'S/360
Continuous
System
Modeling
Program
M,odification·Lcv('I~.
2
----------------~--------------------------------~------------~~~--------~~----~.~--------~---
E
Q)
:::0
o
d::
.....
o
E
Q)
:::0
o
d:
c:
o
'"
c
Q)
E
5
u
Errors may
result
with
models involving
implicit
loops.
The
User's
Manual
gives
the
following
example
of
an
implicit
function:
Z
Cl
FOFZ
IMPL(ZO,ERROR,
FOFZ
A * EXP( -
TIME
)
Cl
+
B*
S/N( Z )
Program errors may result
if
intermediate
variables
defined
within
an
implicit
loop
(such
as
Cl
above)
are
used
outside
the
loop.
Unti I program fix
is
found,
avoid
such
usage.
If a term
available
within
a loop
is
required
elsewhere,
it
should
be
recomputed
outside
the
loop.
Alternatively,
for some models it may
be
possible to place
the
entire
implicit
loop
within
a
multiple
output
procedure
thusly:
PROCEDURE
ENDPRO
Cl,
FOFZ
Z
Cl
FOFZ
LOOP
(ZO,
ERROR, TIME)
IMPL
(ZO,
ERROR,
FOFZ
)
A *
EXP
(-
.TIME)
Cl
+ B * SIN
(Z)
Note
that
this
requires
the
user to properly
sequence
the
statements
within
the
loop.
CC:
SE
Managers
DP
Application
Program
Standards
APAR
PROCESSING
112
ERit
POlt
Road.
White Plains,
N.Y.
i0601
20060
An
end
of
data
set
on
unit
13
may
occur
if
a
PROCEDURE
block
is
used
in
a
NOSOR
T
section.
The
S/360
CSMP
PROCEDURE
is
specificaIly
de:'lign~!d
[or
use
in
.
parallel,
,sorted
sections.
Use
of
a
PROCEDURE
within
a
NOSORT
section
is
nonsensical
modeling
and
will
result
in
an
abnormal
~xit.
§
l:~
new
diagnostic
will
be
added
in
a
future
version
ttl
ddect
this
~
lffiproper
use
without
aborting
the
run.
Q)
S
S
o
C,)
cc: SE
MANAGERS
DP
Application
Program
Standards
APAR
PROCESSING
112
East Post Road
White
P~ains,
N.Y.
10601
20020
APAR
Letter
International
Business
Machines.
COr~Dration
IT
rn
~
MEMORANDUM
TO;users
of
5/360
Continuous
5yste'm
Modeling
Program
<!l
Type
II
I APAR.
tt
Program *
I
PA-Ol0
360A-CX-16X
SUBJECT:
I
Program
Name
IS
360
Continuous
System
Modeling
Program
Executing the load
module
of a previously-stored
CSMP
model
may
fail
due
to concatenation
error
in
FT~5F~~1.
In
the "Execution
Phase
Load
Module"
section of the
CSMP
Operator's
Manual
.(H2~-~368),
procedures are described in figures
11
and
12
to
first
save a
CSMP
load
module
and
symbol
table
and
,then execute
this
saved
CSMP
model
independently. This execution
step
may
fail
due
to concatenating data
sets
with
unlike
attributes
in
FT05F001{such
concatenation
is
unsupported in
FORTRAN.
To
avoid
this
failure,
figure
12
should
be
changed
as
below
to a three-step procedure, the
first
two
steps of
which
are to
effect
the concatenation of the
FORTRAN
input
file
FT~5F001.
Data
sets
FT13F~~1
and
FT14F~0l
have
been
changed
to
RECFM=VS
to
reflect
OS
release
18
requirement for
FORTRAN
un-
formatted records.
The
BLKSIZE
and
LRECL
has
been
adjusted for
more
efficient
use
of disk storage.
These
changes
will
be
incorporated in
a.later
Technical Newsletter
to the
CSMP
Operator's
Manual.
.
CC:
5E
Managers
DP
Application
Program
Standards
APAR
PROCESSING
112
Eaat Poat Road
Whita
Plains,
N.Y.
10601
20021
REVISED
FIGURE
12
(CSMP
Operator's
Manual)
IICSMPEXEC
IICONCATl
IISYSPRINT
IISYSUT2
II
IISYSIN
IISYSUTl
II
IICONCAT2
IISYSPRINT
IISYSUT2
IISYSIN
/ISYSUTl
STOP
1*
IIGO
IIFT0SF001
IIFT06F001
I
IFT13F~~1
II
IIFT14F00l
II
IIFT15F~01
II
IISTEPLlB
II
JOB
EXEC
PGM=IEBGENER
DO
SYSOUT=A
DO
UNIT=SYSDA,SPACE=(TRK,(10,2»,DISP=(NEW,PASS),
DCB=(BLKSIZE=8~,LRECL=80.RECFM=F)
DO
DUI~MY
DO
UNIT=SYSDA,
01
SP=SHR
.OSN=CSr~p
.SYMB.
CABLE,
VOL=SER=CSMPDK
EXEC
PGM=IEBGENER
DD'
SYSOUT=A
DO
DSN=*.CONCAT1.SYSUT2,DISP=(MOD,PASS)
DD
DUMMY
DO
*
data
and
execution control cards
EXEC
PGM=DEJEXE.REGION=1~8K
DO
DSN=*.CONCAT1.SYSUT2,DISP=(OLD,DELETE)
DO
SYSOUT=A
DD
UNIT=SYSDA.SPACE=(TRK,(40.4~»,
DCB=(RECFM=VS,LRECL=204
..
BLKSIZE=2~8)
DO
UNIT=SYSDA,SPACE=(TRK,(4~,4~»,
DCB=(RECFM=VS.LRECL=2~4,BLKSIZE=2~8)
DO
UNIT=(24~~"DEFER),OSN=PREPARE,OISP=(.PASS),
LABEL=(.NL),VOL=SER=SCRTCH
DO
DSN=CSMP.CABLE,OISP=SHR,UNIT=SYSDA,
VOL=SER=CSMPDK
X
X
X
X
X
X
International Business Machines
Corporation
IT
rn
ij:{b
MEMORANDUM
TO:
Users
of
S/360
Continuous
System
Modeling
Program
1
Type
II
,APAR.#
,
PA-Oll
SUBJECT:
,Program
Name
.
Program
It
360A-CX-16X
Modification
Level
2
S
<ll
::0
o
1-0
0..
a
<ll
::0
o
1-0
0..
c:
o
CIl
c:
CJ
a
a
o
u
, S
/360
Continuous
System
Modeling
Program
S/360
CSMP
translator
may
ABEND
with
a
OC5
code
in
processing
INTGR
L
statements
that
are
continued
on
several
cards.
SY5fAJ(
2-0.0
12...
.....
7-71
The
packing
operation
for
continuation
cards
may
interfere
with
the
INTGST
subroutine
operation
if
a
number
or
variable
name
falls
across
a
FOR
TRAN
boundary
(every
66
characters).
To
eliminate
this
possibility
the
packing
subroutine
BUILD
should
be
modified
using
the
Optional
Distribution
procedures
described
in
the
CSMP
Operators
Manual.
The
Figure
3
control
cards
require
the
following
input
cards:
• /
CHANGE
LIST=ALL,SEQFLD=783,
NAME=BUILD
1110
IF
(
MOD
(
NP,
6)
•
NE.
0)
L = L -
BUlL
440
IF
( L
.EQ.
0)
GO
TO
1130
BUlL
442
L = L + L +
KK
-
BUlL
444
• /
ENDUP
The
translator
module
must
be
link
edited
to
include
the
modified
BUILD.
cc: SE
MANAGERS
DP
Application
Program
Standards
APAR
PROCESSING
112
East Post
Road
White
Plains,
N.Y.
10601
20022
International Business Machines
Corporation
IT
rn
J},~
MEMORANDUM
TO:
Usprs
of
S/360
Continuous
System
Modeling
Program
T,
Type
II
,APAR.
1/
Program"
,PA-OI2
360A-CX-16X
SUBJECT:
,Program
Name
IS/360
Cuntinu(llLs
Systelll
Modeling
Prugranl
Modification
Level
2
....
o
c:
o
til
c:
Q)
5
S
o
U
I:--~-----'"
Real
variable
arrays
n1ay
be
improperly
prucessed
if
the
array
name
begins
with
I,
J,
..
" N
VIM2
of
S/360
CSMP
may
fail
to
specify
a
variable
array
as
REAL
if
the
array
naml"
begins
with
I,
J.,
K,
L,
M,
or
N.
To
circumvent
this
possibility
array
narnes
for
real
subscripted
variahles
should
not
start
with
these
letter:;,
Thi:;
restriction
will
be
eliminated
in
a
future
version.
cc: SE
MANAGERS
DP
Application
Program
Standards
APAR
PROCESSING
112
East Past
Road
Whits
Plains,
N.Y.
10601
20023
International Business Machines Corporation
IT
rn
~
MEMORANDUM
TO:
Users
of
S/31,1)
Contin\lfl\ls
System
Modeling
P~~gram
(!;
Type
II
:APAR
.•
1
PA-OIS
SUBJECT:
I
Pl'()g-ram
Name
Program
1/
360A-CX-16x
Modification
Level
2
to:
o
S
/3i)n
ConI
inn'''ls
Svstl'nl
Use
of
;l
IH:gativL' nllT1!crlC
C(;'1stant
or
a
sYl11holic
name
preceeded
by
a
negative
sign
as
an
argllnlent
of
a
MACR
0 i
nvnCitl
ion
may
result
in
an
OC4
abnormal
exit.
<3
Y5fJA( t..o.O
12-7-7
1
A
prol..!r"m
('rror
in
sllbrcliltinl'
J\Lrl.l:\f:ST
will
result
in
incorrect
processing
and
may
Ci1\lt;(·
.Ill
abnormal
exit
if
Pither
a
negative
constant
or
a
symbolic
name
preceded
by
;1
I1t'gittivl'
sign
is
used
as
"tl1<'r
th;\!\
tIll'
last
argtlllll'nt
~)f
a
MACRO.
The
procedure
ci('scrilwd
'>11
P;)gc
3
of
the
S/3'i!i
C:St>.lP
0p{'r;t\('r'~
J\bnual
(H20-0368-2)
should
be
used
to
correct
the
error.
The
following
cards
are
to
be
run
as
input
data
to
the'
Figure
3
clIntrol
cards:
.;'
CHANGE
LIST
:.=
ALL,
SEQFLD
~
774,
NAME
MMACST
MMAC
130~
MMAC2390
MMAC2392
MMAC2393
MMAC2395
MMAC2396
D
11\,1
ENS
ION
I\\,O
H K ( I
))
10
10
IF
(IWTYPE-2)19S0,
1912,1920
1912
IF
(INO-l1)1913,
1')IS,
1913
1 '! I 3
IF
(I
N 0 -
7)
I 9 5
0,
I
C)
I
5,
19
')
0
[')15
KLAST
= 2
GO
TO
1950
ENDUP
FOR
TRAN
H
Option
I
shultle!
1)('
llSl'd
to
compile
the
subroutine.
The
Translation
module
must
be
relink-edited
tlbing
the
first
step
of
Figure
6
with
the
data
set
marked
as
"OLD".
DP
Application
Program
Standards
APAR
PROCESSING
112
East
Post Road
Whits Plains,
NY
1080t
·~0182
International Business Machines Corporation
IT
ffi
~~
MEMORANDUM
TO:
Users
of
8/360
Continuous
System
Modeling
Progranl
~-
,
Type
II
I
APAR.
if
Program
#
SUBJECT"
PA-032
360A-CX-16X
, I
Program
Name
Modification
Level
2
S/360
Continuous
System
Modeling
Prugram
Non-unique
output
narneti
within
a
SORT
section
are
not
diagnosed
and
an
incorrect
UPDATE
may
be
created.
12--7-7{
The
pTogram
fails
to
recognize
a
non-\lnique
name
situation
in
a
section
to
be
sorted
and
as
a
result
subrc)utine
UPDATE
m~ly
have'
misplaced
statements.
Subroutines
STRUST
and
MMACST
may
be
modified
to
cnrrl'ct
this
situati,m
by
using
the
procedure
described
Olf
page
3
of
the
S/360
CSMP
Operator1s
Manual
H20-0368-2.
The
following
cards
are
to
be
run
as
input
data
to
the
Figul'l'
3
control
cards:
• /
CHANGE
LIST
=
ALL,
SEQFLD
1050
NTOUTI
=
ISORT(NSORT)/lOOO
CHANGE
LIST
=
ALL,
SEQFLD
1
320
NT
0
UTI
=
IS
0 R T
(N
S 0 R
T)
/ 1
000
• /
ENDUP
7 7 ..f, N A M E =
1\1
r-.l
A
CST
11
MAC
320
=
774,
NAME
=
STRUST
STRU
H50
The
MMACST
and
STRUST
subroutines
must
bl'
recompill'd
;.tlld
the
translation
module
recreated.
DP
Application Program
Standards
APAR
PROCESSING
112
East Post Road
White Plains,
NY
1080t
e
QJ
~
e
c..
s::
o
C
QJ
E
E
o
o
APAR
Letter
International
Businass Machine.
Corporation
ITrnllir
Users
of
s/360
Contii1Uous
System
Modeling
Program
<!>
MEMORANDUM
TO:
Typa
II
,APAR.
*
Program
*
SUBJECT"
PA-093
360A-CX-16X
•
,Program
Name
,
S/360
Cpntinuous
System
Modeling
Program,
A
program
error
in
the
IMPL
function
may
cause
convergence
to
an
incorrect
IMPL
output
value.
2-0.0
Procedures
described
in
the
s/360
CSMP
Operator's
Manual
should
be
used
to
correct
this
error.
The
symbolic
update
shown
in
Figure
3
is
used
as
follows:
A)
Control
cards
Fig3
10
through
Fig3
70
followed
by
these
change
cards.
.1
CHANGE
NAME-IMPL,
SEQFLD=783
C
C(K)=FUNCT
1060
A=(FUNCT-XNPl)/(C(K)-C(K+l))
C(K)=Q*C(K)+(1.0-Q)*FUNCT
XNPl=FUNCT
1*
IMPL
90
IMPL
240
IMPL
290
IMPL
420
IMPL
595
B)
Compilation
is
performed
using
the
procedure
shown
in
Figure
4A,
with
the
membername
IMPL
instead
of
STATUS
on
cards
Fig4A
70
and
Fig4A
90.
C)
The
linkqge
edit
is
performed
using
part
of
the
procedure
shown
in
Figure
6.
The
cards
Fig6
11 0
through
Fig6
180
are
used,
followed
by
/ISYSLIN
DD
*
INCLUDE
OBJUB(IMPL)
NAME
IMPL(R)
1*
DPApplicatiOil'Program'Standards
.j
APAR
PROCESSING
112
E
..
t POlt
Road
Whit. Plainl,
N.Y.
t~i
,20237
e
CIJ
:0
o
',",
P-i
'I=:
o
~
CIJ
e
- E
o
o
MEMORANDUM
TO:
Users
of
S/360
Continuous
Modeling
Program
(360A-CX-16X)
SUBJECT:
APAR
#
PA
-
192
Program
#
36oA-CX-16X
Program
Name:
S
/360
Continuous
System
Modeling
Program
Version
1
Modification
Level
2
Continuation
cards
for
logical
IF
statements
may
be
incorrectly
translated.
:5
Y5
RI)J"
2-0.
0
12-7
-7
J
,
,If
a
logical
expression
(characters
within
IF
parenthesis)
is
split
across
,
two
cards
the
translator
may
not
include
the
statement
in
the
UPDATE
subroutiI'!e.
The
translator
may
be
corrected
by
using
the
Optional
Distri-
bution,
Procedures
with
the
following
change
statements.
'
. /
22f1fJ
.-r
1470
./
CHANGE
SEQFLD=774,
NAME=STRUST
GO
TO
2190
IF(IWTYPE.
NE.
2)GO
TO
1176
JGO=3
IF(LLPRO.
EQ.
3)GO
TO
13(j(j
NTOU
T:;NTOU
T+
I
TOUT(NTOUT)=WORDI(
1)
GO
TO
117~
,
CHANGE
SEQFLD=774,
NAME=SCAN
IF(LLALPH.
EQ.
2)GO
TO
IsM
,
'ENDUP
STRU2398
STRU2478
STRU248,l)
STRU2490
STRU2492
STRU2494
STRU2496
SCAN1420
Subroutines.CSAN
and
STRUST
must
be
compiled
before
relink-editingthe
translator.
""
,.-
20552
E
~
.c
o
'"'
p..
.....
o
E
~
.c
o
'"'
p..
t:
o
~
CJ
E
8
o
u
DECEMBER
1970
MEMORANDUM
TO:
SUBJECT:
Users
of
S/36(J
Continuous
Modeling
Program
(36VA-CX-16X)
APAR
#
PA
-
III
Program
#
360A-CX-16X
Program
Name:
S/360
Continuous
System
Modeling
Program
Version
1
Modification
Level
2
The
statement
number
is
removed
on
statements
with
the
INTGR
L
block
as
part
of
an
expression
.
I
L-1-1
,
The
V1M2
system
may
be
modified
by
the
Optional
Distribution
procedures
in
the
CSMP
Operator's
Manual
to
correct
this
program
error.
The
follow-
ing
input
to
the
UPDTE
utility
(Figure
3
control
cards)
will
modify
sub-.
routine
INTGST
so
that
statement
numbers
on
procedural
statements
usmg
the
INTGR
L
block
are
retained.
. /
C
. /
CHANGE
SEQFLD=774.
NAME=INTGST
INTG2526
ENDUP
Subroutine
INTGST
must
be
compiled
(Figure
4)
and
the
TRANSLATOR
relink
edited
(Figure
6)
20791
.....
o
8
CJ
:0
o
'"'
p..
t:
o
~
CJ
E
E
o
u
DECEMBER
1970
MEMORANDUM
TO:
Users
of
S/360
Continuous
Modeling
Program
(360A-CX-16X)
SUBJECT:
APAR
#
PA
-
112
Program
#
360A-CX-16X
Program
Name:
S/360
Continuous
System
Modeling
Program
Version
1
Modification
Level
2 '
Internal
output
variables
in
macro
definitions
as
signed
only
by
logical
IF
s'tatements
will
not
have
unique
names.
S
15
P
f.)
IL
W.
0
(2.
-7 - 7 I
The
VI
M2
system
may
be
modified
by
the
Optional
Distribution
procedures
in
the
CSMP
Operator's
Manual
to
correct
this
error.
The
following
input
to
the
UPDTE
utility
(Figure
3
control
cards)
will
modify
subroutine
RMACST
to
correct
this
situation.
. /
CHANGE
SEQFLD=774.
NAME=RMACST
IF(KLV)
1432.
1440.
1540
1432
IF(INO-12)1434.
1550.
1150
1434
IF(IWTYPE.
NE.
2.
OR.
INO.
NE.
9)GO
TO
1430
GO
TO
1490
1450
IF(INO.
NE.
6.
OR.
CWORD.
NE.
CBCD(285)
)GO
TO
1455
KLV=-1
GO
TO
1430
1455
IF(INO.
LT.
12)GO
TO
1470
• /
ENDUP
RMAC1090
RMAC1,o92
RMAC1094
RMAC1096
RMACI12I/J
RMACll22
RMAC1l24
RMAC1130
Subroutine
RMACST
must
be
compiled
(Figure
4)
and
the
translator
relink
edited
(Figure
6).
20792
....
o
....
u
cd
J.4
....
III
.0
<
DECEMBER
1970
MEMORANDUM
TO:
Users
of
S/360
Continuous
Modeling
Program
(360A-CX-16X)
SUBJECT:
APAR
#
PA
-
113
Program'#
360A-CX-16X
Program
Name:
S/360
Continuous
System
Modeling
Pr'ogram
Version
1
Modification
Level
2
Record
2
of
a
PREPARE
data
set
file
is
format
A8,
314.
The
first
word
contains
arbitrary
information
if
no
integration
is
used.
The
Systems
Manual
incorrectly
states
that
the
format
of
Record
2
of
a
PREPARE
file
is
A8.3A4.
This
record
is
actually
created
as
A8,
314.
Also
if
no
integration
is
used
the
first
word
of
this
record
will
contain
arbitrary
information.
To
have
the
system
place
blanks
in
that
word
so
that
this
condition
may
be
tested
for
the
following
input
to
the
UPDTE
utility
(Figure
3
control
cards)
may
be
used.
• /
CHANGE
SEQFLD=774,
NAME=SIMOUT
REAL*8
BEG1N,XMETH,DBLANK/I
1/
XMETH=DBLANK
IF(INTYPE.
LT.
10)XMETH=TYPINT(INTYPE)
WR1TE(I5,
2050)XMETH,
KTITLE,
NOSYMB,
KGRAPH
. /
ENDUP
SIMO
50
SIM02322
S1M02324
S1M02330
S~broutine
SIMOUT
must
be
compiled
(Figure
4)
and
the
execution
phase
relink
edited
(Figure
6).
2-0.0
\ L - )
-,I
20793
E
~
.0
o
,...
~
....
o
....
u
cd
J.4
....
co
.0
<
E
QJ
.....
.0
o
,...
~
s::
o
....
s::
~
o
U
DECEMBER
1970
MEMORANDUM
TO:
SUBJECT:
Users
of
S/360
Continuous
Modeling
Program
(360A-CX-16X)
APAR
#
PA
-
114
Program
#
360A-CX-16X
Program
Name:
S/360
Continuous
System
Modeling
Program
Version
1
Modification'Level
2
Program
will
not
diagnose
too
many
PR
TPLT
variables
if
variables
appear
as
print
requests
(in
parenthesis).
Subroutine
1NTRAN
does
not
include
the
print-only
requests
on
PR
TPLT
statements
when
a
test
for
too
many
variables
is
made.
Abnormal,
execution
may
occur
from
the
resulting
table
overflow.
The
following
input
to
the
UPDTE
utility
(Figure
3
control
cards)
may
be
used
to
correct
this
error.
. /
1760
. /
CHANGE
SEQFLD=774,
NAME=INTRAN
1F(KPLOT.EQ.50)GO
TO
2470
KP
LOT=KP
LOT+
1
ENDUP
INTR
1960
INTR
1962
Subroutine
1NTRAN
must
be
compiled
(FOR
TRAN
H
Opt
1)
and
the
execution
phase
relink
edited
(Figure
6).
S
Y5
PAI(
YJ.()
20794
....
o
DECEMBER
1970
MEMORANDUM
TO:
SUBJECT:
..
Users
of
S/360
Continuous
Modeling
Program
(360A-CX-16X)
APAR
#
PA-1l7
Program
#
360A-CX-16X
Program
Name:
S/360
Continuous
System
Modeling
Program
V
er
sion
1
Modification
Level
2
....
g
Translator
may
incorrectly
flag
memory
block
inputs
and
not
use
multiple
~
output
memory
elements
to
break
loops.
.0
<
8
Q)
:c;
0
J..
(l.
s::
0
1:
c:>
8
·8
0
U
The
Translator
incorrectly
flags
INPUT
NAME
SAME
AS
OUTPUT
NAME
for
memory
blocks
and
may
not
use
multiple
outputs
from
memory
blocks
to
break
algebraic
loops.
Incorrect
storage
assignment
is
given
to
memory
blocks
specified
without
storage.
The
following
input
to
be
UPDTE
utility
(Figure
3
control
cards)
may
be
used
to
correct
these
program
errors.
· /
CHANGE
SEQF
LD=774,
NAME=DATAST
KNTMEM(NTMEM)=0
DATA1275
· /
CHANGE
NAME=MMACS
T,
SEQFLD=774
EQUIVALENCE
(LL(11),
LLMEMS)
MMAC
152
1560
IF(LLMEMS.EQ.1)GO
TO
157(j
MMAC1570
IERR=8
MMAC1572
• I
CfIANGE
SEQFLD=774,
NAME=STRUST
DO
1580
KJl=J1,
NTOUT
STRU139
2
TINT(NMEM)=TOUT(KJ
1)
STRU1380
1580
LINT(NMEM)=KJ1
STRU1390
1590
IF(KNTMEM(NTER).
EQ.
0}GO
TO
1630
STRU1410
CALL
NTOBCD(NMEMRY,XYZ)
STRU1415
1810
IF(LLMEMS.EQ.1)GO
TO
1820
STRU1860
IERR::08
STRU1862
IF(NINT.
LT.
NMEM)
GO
TO
2310
STRU2720
LL(
17)=4
STRU2722
GO
TO
2420
STRU2724
· /
ENDUP
Subroutines
DATAST,
MMACST,
and
S
TRUST
must
be
compiled
and
the
TRANSLATOR
relink
edited
•
~.O
20795
DECEMBER
1970
MEMORANDUM
TO:
Users
of
S/360
Continuous
Modeling
Program
(360A-CX-16X)
SUBJECT:
APAR
#
PA
-
189
Program
#
360A-CX-16X
Program
Name:
S/360
Continuous
System
Modeling
Program
Version
1
Modification
Level
2
The
CSMP
procedure
must
contain
the
DD
card
specified
for
FOR
TRAN
execution
diagnostics
•
The
CSMP
system
supplies
FT06F001
as
the
DD
name
for
printer
output
during
the
execution
phase.
Normally
this
is
also
the
FOR
TRAN
execution
diagnostic
unit
specified
at
system
generation
time.
If
it
is
not,
the
appropriate
DD
card
(for
example
IIFT03F001
DD
SYSOUT=A)
must
be
supplied
as
an
addition
to
the
CSMP
procedure.
20874
JANU4RY
1971
MEMORANDUM
TO:
SUBJECT:
Users
of
S/360
Continuous
Modeling
Program
(360A-CX-16X)
APAR
# PA...;042
Program
360A-CX-16X
Program
Name:
S/360
Continuous
System
Modeling
Program
Version
1
Modification
Level
2
The
DELAY
function
may
create
extrapolated
rather
than
interpolated
output
values.
The
VIM2
system
may
be
modified
by
the
Optional
Distribution
procedures
in
the
CSMP
Operator's
Manual
to
correct
this
program
error.
The
following
input
to
the
UPDTE
utility
(Figure
3
control
cards)
will
modify
subroutine
DELAY.
. /
CHANGE
SEQFLD=783,
NAME=DELAY
KX(K-4)=2
KX(K-2)=N+N+4
1160
CONTINUE
C
IF
I
EQUALS
0
THEN
WRAP
AROUND
IS
NEEDED
C
COPY
LAST
POINTS
IN
TABLE
TO
FmST
LOCATIONS
C
IN
EITHER
CASE
STORE
CURRENT
VALUES
IN
NEXT
LOCATIONS
C
IF(I.
GT.
0)GO'
TO
1200
IF(KX(K-4)+2.
LE.
KX(K-2))GO
TO
1200
KX(K-4~KX(K-4)+2
. /
ENDUP
DELA
120·
DELA
140
DELA
470
DELA
474
DELA
475
DELA
477
DELA
478
DELA
520
DELA
522
DELA
582
Subroutine
DELAY
must
be
compiled
(Figure
4)
and
the
execution
phase
relinl<-edited
(Figure
6).
20902
a
~
.0
0
'"'
~
~
0
~
QJ
a
a
0
to)
MEMORANDUM
TO:
Users
of
S/360
Continuous
Modeling
Program
(360A-CX-16X)
SUBJECT:
APAR
#
PA-046
Program
#
36oA-CX-16X
Program
Name:
S/360
Continuous
System
Modeling
Program
Version
1
Modification
Level
2
Integration
method
RKS
may
fail
if
the
difference
between
TIME
and
TNEXT
become
s
effectively
zero.
The
VIM2
system
may
be
modified
by
the
Optional
Distribution
procedures
in
the
CSMP
Operator's
Manual
to
correct
this
program
error.
The
following
input
to
the
UPDTE'
utility
(Figure
3
control
cards)
will
modify
subroutine
RKS
so
that
the
diagnostic
message
"VARIABLE
STEP
DELT
LESS
THAN
DELMIN.
SIMULATION
HALT"
will
be
generated
if
(TIME
-
TINEXT)
is
effectively
zero.
. /
. /
CHANGE
SEQFLD=774,
NAME=RKS
IF(AA.EQ.
0.
0)GO
TO
2140
ENDUP
RKS
555
Subroutine
RKS
must
be
compiled
and
the
execution
phase
relink
edited.
20903
8
-
Q)
:0
o
'"'
p..
s::
o
i=l
Q;
8
8
o
u
MEMORANDUM
TO:
Users
of
S/360
Continuous
Modeling
Program
(360A-CX-16X)
SUBJECT:
APAR
#
PA-066
Program
#
360A-CX-16X
Program
Name:
S/360
Continuous
System
Modeling
Program
Ver
sion
1
Modification
Level
2
S/360
CSMP
does
not
recognize
the
FOR
TRAN
'GOTO'
(without
an
intermediate
blank)
on
macro
statements.
Subroutine
RMACST
may
be
modified
to
add
this
FOR
TRAN
form
to
the
macro
generating
code.
Use
the
Optional
Distribution
procedures
des-
cribed
in
the-
Operator's
Manual
to
compile
RMACST
and
relink-edit
the
translator.
The
following
modifications
are
required
as
input.
. /
1850
1852
2010
2012
2032
. /
CHANGE
SEQFLD=77'4,
NAME=RMACST
DATA
GOTO/'GOTO'
/
IF{CWORD-CBCD(291»
1852,2030,1852
IF(CWORD-GOTO)2100,
2032,2100
IF(CWORD-CBCD(291»
2012,2030.2012
IF(CWORD-GOTO)2040.2032.2040
KIF=0
ENDUP
RMAC
112
RMAC2290
RMAC2292
RMAC2640
RMAC2642
RMAC2730
20904
E
o
r-4
.a
o
~
1=0.
C
o
+l
C
o
g
o
u
MEMORANDUM
TO:
Users
of
S/360
Continuous
Modeling
Program
(360A-CX-16X)
SUBJECT:
AFAR
#
PA-118
Program
360A-CX-16X
(Correction)
Program
Name:
S/360
Continuous
System
Modeling
Program
Version
1
Modification
Level
2
A
memory
function
may
improperly
break
an
algebraic
loop
if
it
is
used
as
part
of
an
expression.
The
use
of
a
memory
function
(for
example,
the
CSMP
DELAY
block)
as
part
of
an
expression
or
as
a
subroutine
argument
expression
may
incorrectly
allow
the
statement
output(s)
to
break
algebraic
loops
involving
other
terms
in
the
expression
or
other
arguments.
The
follow-
ing
update
restricts
the
loop-breaking
to
loops
involving
only
the
in-
puts
to
the
memory
function
and
its
outputs.
It
also
corrects
an
error
in
the
sort
operation
that
was
not
allowing
the
last
memory
output
encountered
to
break
a
loop
that
did
not
involve
integration.
Subroutines
STRUST
and
SEQUST
must
be
updated
and
recompiled
and
the
translator
re-link-edited.
.1
1550
1552
1720
1726
1960
.1
2270
2292
2392
.1
CHANGE
SEQFLD=774,NAME=STRUST
IF(IPO.EQ.9)LLMEMS=1
IF{K8.NE.4)GO
TO
1590
CONTINUE
IF{K8.NE.4)GO
TO
1970
IF(LLMEMS.EQ.O)GO
TO
1726
IF(IWTYPE.NE.2)GO
TO
1726
IF(INO.EQ.6.AND.KNTPRN.EQ.l)LLMEMS=0
IF
(INO.NE.7.AND.KNTPRN.EQ.0)LLMEMS=0
IF(INO-12)1730,1940,24l0
IF(LLPRO.EQ.2)GO
TO
1990
IF(LLMEMS.EQ.l)GO
TO
1552
CHANGE
SEQFLD=774,NAME=SEQUST
IF(LMEM(J).EO.O)GO
TO
2350
IF(NSEQ.GT.J2)GO
TO
2292
CONTINUE
IF(J.GE.NMEH)GO
TO
2270
IF(NSEQ.GT.J2)GO
TO
2392
CONTINUE
ENDUP
2.cD.o
STRU1296
STRU1298
STRU1300
STRU1392
STRU1740
STRU1742
STRU1744
STRU1746
STRU1748
STRU2090
STRU2092
SEQU3l50
SEQU3l62
SEQU3202
SEQU3370
SEQU3432
SEQU3472
20955
April
26,
1971
MEMORANDUM
TO:
Users
of
S/360
Continuous
System
Modeling
Program
(360A-CX-16X)
SUBJECT:
APAR
# PA-366
Program
#360A-CX-16X
Program
Name:
S/360
Continuous
System
Modeling
Program
Version
1
Modification
Level
2
Abstract
of
Problem:
An
abnormal
exit
will
occur
if
a
"PROCEDURAL"
label
is
used
in
a
MACRO
definition
with
more
than
25
input
and
output
names.
For
example:
MACRO
Y
BLK
(Xl,
X2,
•••
,
••
X25)
PROCEDURAL
(blank)
Comment
on
Problem:
Tab~e
22
of
the
translation
module
has
a
capacity
of
180
input
characters.
The
system
code
performing
the
automatic
generation
of
a
PROCEDURE
statement
using
the
MACRO
label
statement
fails
to
test
for
table
overflow
and
an
abnormal
exit
will
result.
Subroutine
RMACST
may
be
modified
to
perform
this
test.
Use
the
Optional
Distribution
procedures
described
in
the
Operator's
Manual
to
compile
RMACST
and
relink-edit
the
translator.
The
following
modifications
are
required
as
input:
.1
CHANGE"
SEQFLD=
774
,NAME=RMACST
1926 IF(LETERS(KEND).NE.64)GO
TO
1928
RMAC2422
KEND=KEND-l
RMAC2424
GO
TO
1926
RMAC2426
1928
KEND=KEND+l
RMAC2430
1936
IF(LETERS(KEND).NE.64)GO
TO
1938
RMAC2502
KEND=KEND-l
RMAC25
0 4
GO
TO
1938
RMAC2506
1938
KENO=KEND+l
RMAC2510
IF(KEND~GT.180)GO
TO
2211
RMAC2542
.1
ENDUP
5-Y5
>f
A
'<..
2o~O
\L-7-
71

Navigation menu