GC21 7608 2_System3_15_SCP_macros_reference_manual_Mar80 2 System3 15 SCP Macros Reference Manual Mar80
GC21-7608-2_System3_15_SCP_macros_reference_manual_Mar80 manual pdf -FilePursuit
GC21-7608-2_System3_15_SCP_macros_reference_manual_Mar80 GC21-7608-2_System3_15_SCP_macros_reference_manual_Mar80
User Manual: GC21-7608-2_System3_15_SCP_macros_reference_manual_Mar80
Open the PDF directly: View PDF 
.
Page Count: 144
| Download | |
| Open PDF In Browser | View PDF |
aaaa
aaaa
aoaa
aaaa
aaaaaaaaaaaaaaaaaa
aaaaaaaaaaaoaaaaaa
aaaaaaaaoaaaaaaaaa
a a a a o a a a a a a a aaa a a a
aaaa
aaaa
aaaa
aaaa
aaaa
aaaa
aaaa
aaaa
aaaaaaaaaaoaa aa aaa
aaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaa
aaaa
aaaa
aaaa
aaaa
aaaa
aaao
aaao
aaaa
-aaa
aaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaa
aaaaaa
aaaaaa
aaaa
aaaa
IBM System./3 Model 15
System ControlProgrammingMacros
Reference
Manual
aaaa
aaaaa
aaaaa
aaaaaaa
aaaaaa
aaaaaaaaa
aaaaaaa aaaaaaaaaaa
aaaaaaa
aaaaaaaaaaa
aaaa
aaaa
aaaa
aaaa
aaaa
aaaa
aoaa
aaaa
aaaa
aaaaaaaaaaaa
aaaaaa
aaaaaaaaaaaa
aaaaaa
aaaaaaaaaa
aaaaa
aaaaaaaa
aaaa
aaaaaa
aaaa
aaaaa
aaaaa
aaaaaaa
aaaaaa
aaaaaaaaa
aaaaaaa
aaaaaaaaaaa
aaaaaaa aaaaaaaaaaa
aaaa
aaaa
aaaa
aaaa
aaaa
aaaa
aaaa
aaaa
aaaa
aaaaaaaaaaaa
aaaaaa
aaaaaaaaaaaa
aaaaaa
aaaaaaaaaa
aaaaa
aaaaaaaa
aaaa
aaaaaa
aaaa
aaaa
aaaaaaa
aaaaa
aaa aa
aaaaaaa
aaaa
aaaa
aaaa
aaaa
aaaa
aaaaaa
aaaaaa
aaaaaa
aaaaaa
aaaa
aaaa
aaaa
aaaa
aaaaaaaaaaaaaaaaaa
aaaaaaoaaaaaaaaaaa
aaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaa
aaaaaaaaaa
aaaaaaaaaaa
aaaaaaaaaaa
aaaaaaaaoaa
aaaaaaaaaaa
aaaaaaaaaaa
aaaa aa a aaa
aaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaa
aaooaaaaaaaaaaaaaa
aaaa
aaaa
aaaa
aaaa
GC21-7608-2
F i l eN o . 5 3 - 3 6
P a g eo f G C 2 1- 7 6 0 8 - 2
l s s u e d2 9 S e p t e m b e r 1 9 7 8
By TNL: GN21-5649
Preface
Thismanua|describesthemacrcrinstrttcttcrtts1rtrlvic1t,ci|lisl..saiiii,i..i]i()ql;ir,|.;l-1i,'.,;\ri|l!i
the IBM System/3 Moclel 15. The publrc,riirrr:;i ir,tcnue,,j
t;iiri-;
f o r p e r s o n s w h o a r e p r o g r a m r n i n g i n t h e i J a s i cA s s e m b l e r
L a n g u a g eo r i t s e q u i v a l e n t a r r d w h o a r e i a n i i i t d t w i i t , t i r c
concept of macro instructions and syslr:ii lrrograrn:'niitti
.r
, / t i e r ir ] i . i i ) , - - , ) t - o p eDnT F ( D e f i r r e
i l t : : . . 1 ' 1 , t ,. . , [ r ; - ,
l n r ; : , i , .1 i j i l r , t r . i l L j l u r . ; k sf 1 , 1, s r r r ar r j o o i r : .a1r r r {t l r s k d e v i c e s ,
f o r t h e I B M S v s t e m / 3N 4 o d e1l 5 .
T h e f o l l o w i n g t o p i c s a r e d i s c u s s e e c i f i e c' tir i t
t h i s o J r e r a n rils o r n i t t e d , o p t i o l - l3 i s r r o t ; r i l o v ; t " i
l i s a l l o w e d .c ( ) ! l 1 r ( -v)vl i l l t t ' r t l t i l i ' l r t ll i t ) r l
l v ( l f r r . l f t i 1 : l i t t t3
y
o
u
l
p
r
o
q
r
a
l
l
r
l.
to
Macro Instructioll Slaterndllts
I 1
T L E N - n u m b e rs p e c i f i e st h e t e x t l e n g t h . T h i s e n t r y ( L ) ,
v v h i c hi s a d e c i m a l e n t r y f r . c r n1 t o 1 O 7 ,i s r e q u i r e c l
if
FORMAT C or D isspecified.
TADB-addressspecifies the leftmost byte of the rext
a d d r e s s . T h i s o p e r a n d ( A A ) i s r e q u i r e di f F O R M A T _ Co r D
isspecified.
Generate Displacements for System LoS 6L()GD)
"l-his
m a c r o i n s t r u c t i o r rg e n e r a t e st h e f i e r l r i.dl i r s i 5s 1 r 6o1f f s e t s
f o r t h e s y s t e m l o g p a r a r r e t e rl i s t s " T o i i v c i r lr l u p l i c a t el a b e l s ,
y o u s h o u l d u s e I h i s m a c r o i r t s t r r r c l i o rrt: n l y L , i l o er i l ; )
i ) lo g r a n t .
T h e f o r m a t o f t h e $ L O G m a c r o i n s t r u c l i o ni s :
Generate the Linkage to the System LoS $LOG)
T h i s m a c r o i n s t r u c t i o ng e n e r a t e st h e l i n k a g er e q u i r e dt o
use
t h e s y s t e m l o g f u r r c t i o n ,a n d c h e c k st h e r e s p o n s er e t u r n e d .
T h e $ L O G D m a c r o i n s t r u c t i o nm u s t b e u s e c w
l ith this
m a c r o i n s t r u c t i o n ,t o e s t a b l i s ho f f s e t si n t h e s y s t e m r o g
p a r a m e t e rl i s t .
l f y o u w i l l n e e d t o u s et h e d a t a i n r e g i s t e r2 a t a l a t e r t i m e ,
y o u s h o u l d s a v et h e c o n t e n t so f t h a t r e g i s t e rb e f o r e i s s u i n g
t h e $ L O G m a c r oi n s l r u c t i o n .
General SCP Support
T h e g e n e r a lS C P m a c r o i n s t r u c t i o n sa l l c w y o u r o
l)rovrcte
linltLJ
$$ISUC
$$ISUD
lfr(l{rx.rdRandom Add
lrrlured Random Add MVf
lrrdexed Randorn Update
inrlexed Random Update & Add
i rrrltrr:cj Serluential Add
ir;rlexedSequential Add MVF
l ; r r l r : x e dS r : q u en l r a l U p d a t e & A d d M V F
i i ' r l r : x t : cS
i cquerrtial Input MVF
i r , r l ' , x ( - , dS e q u e n t i a l U p d a t r :
lrrj.agli Sequentrai Update Within Limits
i r r r J e x e dS e q u e n t i a l U p d a t e & A d d
lrrcirxld Serluential Input Within Limits l\/VF
changeable Limits
l r r r J c x e dS e c l u e r n t i a Il n p u t W i t h i n C h a n g e a b l e L i m i t s M V F
i r ) i i e x e c ,S e q u e n t i a l U p d a t e W i t h i n C h a n g e a b l e L i m i t s
l r r d e x e d S e c l u e n t i a l L l p c l a t eW i t h i n C h a n q e a b l e L i m i t s M V F
Disk [)ata Management Modules yvithout Exterrral Bulferinq
P a g eo f G C 2 1- 7 6 0 8 - 2
l s s u e d2 9 S e p t e m b e r 19 7 8
Bv TNL: GN21-5649
Move/
$GETD
$PUTD
AC-code
5444
X
X
X
X
X
X
X
X
X
X
X
X
X
X
CAM
CG
CGM
I 5445
cA5
CAMS
C GM 5
Locate
Mode
M
M
M
I\4
co
LU5
COM
CU
CUM
COM5
CU5
CUM5
M
M
M
M
DGA
DGAIVI
DGM
DG5
DGA5
DGAM5
DG IVIs
M
M
M
M
System Module
5444
| 5445
Access Method
$$wsoP | $$wFoP
$$wsoM i $$vrFOM
$ $ w s r P i $ $ w rr e
$$\rJStr\,1
l$$wFtM
$$wsoP | $$wFoP
$$wsoM | $$wFoM
$ $ " ^ ' / S UIP
$$WFUP
C o n s e c u t i v eA d d
C o n s e c uitv e A d d M u l t i v o l u n r e
C o n s e c u t i v eG e t
C o r r s e c u t i v eG e t M V F
D i r e c tG e t
D i r e c t G e t ( B i n a r yK e y s )
D i r e c t G e t ( B i n a r y K e V s )M V F
DirectGet MVF
s$v\su\,1
isswruna
Consecutive
Output
C o n s e c u t t v eO u t p u t I M V F
C o n s e c u t i v eU p d a t e
C o n s e c u t i v eU p d a t e M V F
X
X
X
X
X
X
X
X
DO
DOA
DOAM
DOIVI
DO5
DOA5
DOAM5
DOM5
M
M
M
M
$$YArD | $$Yr,tD
$$YArB | $$YFtB
$ $ Y A r r | $ $ Y Ft r
s$YArM
$ $ Y Ft M
|
$$YAUD | $$YFUD
$$YAUB | $$YFUB
$$YAUr
| $$YFUr
$$YAUM I $$YFUM
X
X
X
X
X
X
X
X
DU
DUA
DUAM
DUM
DU5
DUAS
DUAM5
DUM5
M
M
M
M
$$YAUD
$SYAUB
$$YAi-JT
$$YAUM
$ $ Y FU M
Direct Update
D i r e c t U p d a t e{ B i n a r yK e y s )
D i r e c t U p c l a t e{ B i n a r y K e y s ) M V F
Drrect Update MVF
X
X
X
X
IA
IAM
to
roM
rA5
IAM5
to5
roM5
M
M
M
M
$$XOAD
S$XOAM
SSXOUT
$$xo{-JM
S$XFAD
$$XFAM
)sArut
$ $ X FU M
I n d e x e dA d d
i r t d e x e dA d d M V F
I n d e x e dO u t p u t
l n d e x e dO u t p u t M V F
X
X
X
IR
IRA
IRAM
IRBM
tR5
IRA5
IRAM5
IRBM5
M
M
M
M
$$XRIP
S$XRAD
$SXI] AM
$$XRBM
$$XGIP
$$XGAD
$$XGAIVI
$$XGBM
I n d e x e dR a n d o m l n p u t
I n d e x e dR a n d o m A d c i
I n d e x e dR a n d o m A d d M V F
Indexed Random Update & Add IVIVF
X
X
X
X
X
IBM
IRU
IRUA
IRUM
tR tvl5
IUR5
IRUA5
IRUM5
M
M
M
M
$ S X I ]I M
$ S X RU P
$$XRUA
$$XRUM
$ $ X GI M
$$XGUP
$ $ X GU A
$$XG U M
I n d e x e dR a n d o m i n p u t M V F
I n d e x e dR a n d o m U p d a t e
I n d e x e dR a n d o m U p d a t e& A d d
l n d e x e dR a n d o m U p c l a t eM V F
X
X
X
X
IS
ISA
ISAM
ISBM
ts5
ISA5
ISAM5
ISMB5
M
M
M
M
$sxsIP
X
X
X
$$XHIP
$$XHAD
$ S XH A M
$$XHBM
I n d e x e dS e q u e n t i a lI n p u t
I n d e x e dS e q u e n t i a A
l dd
I n d e x e dS e q u e n t i a A
l dd MVF
I n d e x e dS e q u e n t i a U
l p d a t e& A d d M V F
X
X
ISL
ISM
ISU
I S UL
ISL5
tsM5
ISU5
I S UL 5
M
M
M
M
$$XSI L
$ S X SI M
$SXSUP
$ S X S UL
$$XHIL
$ $ X S HI M
$$X H UP
$SXHUL
I n d e x e dS e q u e n t i a Il n p u t W i t h i n L i m i t s
I n d e x e dS e q u e n t i a lI n p u t M V F
I n d e x e dS e q u e n t i a U
i pdate
l n d e x e dS e q u e n t i a U
l p d a t eW i t h i n L i m i t s
ISUM5
ISUA5
ISLMS
ISUB5
M
M
M
M
$SXSUM
$SXSUA
$ S X SI B
X
ISUM
ISUA
ISLM
ISUB
$$XSIJB
$$X H UM
$$xl-JLiA
$$XHIB
$$XHUB
I r r d e x e dS e q u e n t i a U
l p d a t eM V F
I n d e x e dS e q u e n t i a U
l p d a t e& A d d
I n d e x e dS e q u e n t i a Il n p u t W i t h i n L i m i t s M V F
l n d e x r d S e q u e n t i aU
l p d a t r :W r t h i n L i m i t s M V F :
ISC5
X
X
ISC
ISCM
ISUC
ISUD
M
M
M
M
$SXSIC
$SXSID
$$XSUC
SSXSUD
$$X H IC
$$XHID
$$XHUC
l n d e x e cS
l e q u c n t i a lI n p u t W i t h i n C h a n g e a b l e
Limirs
I n d e x e dS e q u e n t i a Il n p u t W i t h i n C h a n g e a b l e
Limits filVF
lrrclexed
S e q u e n t i aU
l p d a t eW r t h t n C h a n g e a b l e
Lirnits
l r i c l e x e cSl e o u e n t i a l U p d a t e i ' \ i t h i n C h a n g e a b l eL i m i t s M V F
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
rscM5
ISUC5
ISUD5
$SXSAD
$SXSAM
$SXSBM
$$YFUD
$ $ Y FU B
olYFUl
$sxHr.rD
D i r e c tO u t p u t
D i r e c t O u t p u t ( B i n a r yK e y s )
D i r e c tO u t p u t ( B i n a r y K e y s ) M V F
DirectOutput MVF
F i g u r e 1 1 l P a r t 2 o f 2 ) . D i s k D a t a M a n a g e m e n tM o d u l e s W i t h E x t e r n a l B u f f e r i n g
( 5 7 0 4 - S C 2o n l y l
\1alo
Instructr0ri Slatements
4
Pageof GC21-7608-2
lssued29 September
1978
BvTNL: GN21-5649
The code generatedby this macro instruction givescontrol
t o t h e d a t a m a n a g e m e n tr o u t i n e ; t h e r o u t i n e c o m p l e t e s
execution and returns control to the generatedcode. Completion codes are tested and control is returned to Vour
program.
T h e f o r m a t o f t h e $ P U T D m a c r o i n s t r u c t i o ni s :
[ N a m e |l $ P U r D I l t A c { o d e ] t
|
| ileenccoael\
[ , D T F - a d d r e s s [] , E R R - a d d r e s s ]
[ . E O X- a d d r e s s ][ , D U P - a d d r e s s ]
[ , S E R R - a d d r e s s[], K E R R - a d d r e s s ]
t,UPD-Y/Nl [,LSTV-address]
[ , N O K Y - a d d r e s s ][ , H K E R - a d d r e s s ]
AC+ode or EBAC-code specifies the appropriate access
method for the file. The EBAC-code is for external buff e r i n g a n d i s v a l i d o n l y f o r P r o g r a mN u m b e r 5 7 0 4 . S C 2 .
O n e o f t h e s ep a r a m e t e r sm u s t b e s p e c i f i e d .
The codes that must be used for the AC-code and the
E B A C - c o d ep a r a m e t e r sa r e s h o w n i n F i q u r e 1 1 .
DTF-addressspecifies the addressof the DTF associated
w i t h t h i s f i l e . l f t h i s o p e r a n d i s n o t s p e c i f i e d ,t h e a d d r e s s
i s a s s u m e dt o b e i n r e g i s t e r2 .
ERR-addresssupplies the addressin your program where
c o n t r o l i s p a s s e di f t h e c o n t r o l l e d c a n c e lo p t i o n i s t a k e n i n
r e s p o n s et o a p e r m a n e n t l / O e r r o r . l f t h i s o p e r a n d i s o m i t t e d , n o c o d e i s g e n e r a t e dt o c h e c k f o r t h e c o n t r o l l e d c a n c e l
c o m p l e t i o nc o d e .
EOX-addresssuppliesthe addressin your program that is to
r e c e i v ec o n t r o l w h e n a n e n d o f e x t e n t i s r e a c h e dd u r i n g t h e
o p e r a t i o n . T h i s o p e r a n d i s e n t e r e do n l y w h e n c r e a t i n ga
c o n s e c u t i v eo r i n d e x e d f i l e o r w h e n r e c o r d sa r e t o b e a d d e d
to the file.
DUP-addressprovides the addressin your program that is to
r e c e i v ec o n t r o l w h e n a n a t t e m p t t o a d d a d u p l i c a t e r e c o r d
h a s o c c u r r e d . T h i s o p e r a n d i s u s e do n l y w i t h a n a d d a c c e s s
method.
44
P a s eo f G C 2 1- 7 6 0 8 , 2
l s s u e d2 8 M a r c h 1 9 8 0
By TNL: cN21-5700
SERRaddress is the addressin your program where control
i s p a s s e di n t h e e v e n t o f a s e q u e n c ee r r o r w h i l e l o a d i n ga n
i n d e x e df i l e .
KERR-addressspecifiesthe addressof Vour routine to be
c a l l e dw h e n a n a t t e m p t h a s b e e n m a d e t o u p d a t e a r e c o r o
i n a n i n d e x e df i l e a n d t h e a t t e m p t w o u l d d e s t r o y t h e
record keV.
UPD-Y/N indicateswhether an update is to be performed.
l f t h i s o p e r a n di s n o t e n t e r e d ,N ( n o ) i s a s s u m e d .
LSTV-addressspecifies the addressin your program that
receivescontrol when a requestedkey is too high for the
l a s t s p e c i f i e dv o l u m e . T h i s o p e r a n d i s u s e do n l v w h e n
processing
a n i n d e x e d ,r a n d o m , o f f l i n e , m u l t i v o l u m e f i l e .
NOKY-addresssuppliesthe addressin your program that is
t o r e c e i v ec o n t r o l u n d e r e i t h e r o f t h e f o l l o w i n q c o n d i t i o n s :
o T h e r e q u e s t e dk e y i s t o o l o w f o r t h e c u r r e n t v o l u m e
when processing
a n i n d e x e d ,r a n d o m , o f f l i n e . m u l t i v o l u m ef i l e .
.
T h e r e q u e s t e dk e y i s t o o h i g h f o r a n y v o l u m e w h e n
p r o c e s s i n ga n i n d e x e d r a n d o m o n l i n e m u l t i v o l u m e f i l e .
DISK 5444/5445/3340 specifieswhether the disk device
b e i n g u s e d i s t h e 5 4 4 4 D i s k S t o r a g eD r i v e M o d e l 1 , 5 4 4 5
D i s k S t o r a g e ,o r t h e 3 3 4 0 D i r e c t A c c e s sS t o r a g eF a c i l i t y . l f
a d e v i c ei s n o t s p e c i fi e d , 5 4 4 4 D i s k S t o r a g eD r i v e M o d e l 1
is assumed.
C Y C L - n u m b e r i n d i c a t e st h e b e g i n n i n gc y l i n d e r t o b e
accessedY
. o u c a n s p e c i f yt h e c y l i n d e r b y a d e c i m a ln u m b e r ( 0 - 1 9 9 )o r a h e x a d e c i m anl u m b e r ( X ' 0 0 ' X ' C 7 ' ) . l f t h i s
o p e r a n di s n o t e n t e r e d ,X ' F F ' i s a s s u m e d .Y o u m u s t t h e n
i n s e r tt h e c o r r e c t n u m b e r i n t o t h e I O B b e f o r e p e r f o r m i n g
the input/output operation. This can be done throuqhthe
m a c r o u s e dt o i n i t i a t et h e l l O o p e r a t i o n .
SCTR-number specifies the first sector to be accessed.The
n u m b e r s p e c i f i e dm u s t b e a d e c i m a lf r o m 1 t h r o u g h 4 8 f o r
t h e 5 4 4 4 d i s k d r i v e ,f r o m i t h r o u g h 2 0 f o r t h e 5 4 4 5 d i s k
s t o r a g e ,o r f r o m 1 t o 4 8 f o r t h e 3 3 4 0 d i s k d r i v e . l f t h i s
o p e r a n di s n o t e n t e r e d, X ' F F ' i s a s s u m e d .Y o u m u s t t h e n
i n s e r tt h e c o r r e c t n u m b e r b e f o r e p e r f o r m i n gt h e i n p u t /
o u t p u t o p e r a t i o n . Y o u c a n s p e c i f y t h e s e c t o rt h r o u g h t h e
$ R D D a n d $ W R T D m a c r oi n s t r u c t i o n s .
HEAD-number is specified only for the 5445 or 3340 disk
s t o r a g ed r i v e s . l t s p e c i fi e st h e h e a d t o b e u s e dw i t h t h e
c y l i n d e r a n d s e c t o rw h e n a n l / O o p e r a t i o n i s p e r f o r m e d .
T h e n u m b e r s p e c i f i e dm a y b e d e c i m a l ( 0 - ' l9 ) o r h e x a d e c i m a l( X ' 0 0 ' - X ' 1 3 ' ) l f t h i s o p e r a n di s o m i t t e d , X ' F F '
i s a s s u m e da n d t h e v a l u e m u s t b e u p d a t e dw h e n t h e l i O
o p e r a t i o ni s p e r f o r m e d .
This operand is not used with other accessmethoos.
HKER-addressspecifiesthe addressin your program that is
to receivecontrol when an indexed sequentialadd multivolume is attempted and the requestedkey is higher than
a n y k e y p r e s e n t l yi n t h e f i l e , b u t l o w e r t h a n t h e h i g h e s t
p e r m i s s i b l ek e y .
lnput/Output
Block for Disk ($IOBD)
This macro instruction generatesa disk input/output block
( l O B ) f o r u s e b y t h e d i s k i n p u t / o u t p u t s u p e r v i s o r .A 3 0 byte IOB is generatedtor 5444,5445, and 3340 disk
d e v i c e s . F o r a d e t a i l e dd e s c r i p t i o no f t h e d i s k l O B , s e e
Appendix C: Disk lnput/Output Block.
T h e f o r m a t o f t h e $ I O B D m a c r o i n s t r u c t i o ni s :
[Namel| $roBD I lDtsK-94441s445l334o]
[,cyL-number]
[ . S C T R - n u m b e r ][ , HE A D - n u m b e r ]
[ , N U M - n u m b e r ][ . B U F F ' a d d r e s s ]
[ , O - n u m b e r ][ , E R R E C - l O S / U S EIR
t.LOG-Y/N1[,VER Y/N] [,CHN'address]
NUM-number specifies the number of sectorsused. You
m a y s p e c i f yt h e n u m b e r i n e i t h e r d e c i m a lo r h e x a d e c i m a l
f o r m . l f t h i s o p e r a n d i s n o t e n t e r e d ,o n e s e c t o r i s a s s u m e d .
BUFF-addressis the addressof the leftmost byte of your
d a t a a r e a . l f t h i s o p e r a n di s o m i t t e d , X ' F F F F ' i s a s s u m e d ,
a n d y o u m u s t u p d a t e t h e I O B b e f o r e p e r f o r m i n gt h e i n p u t /
output operatton.
Q-number specifiesthe drive on which the record is located.
'You
m a y s p e c i f yt h e d i s k d r i v ea l o n e F 1 , R 1 , F 2 , R 2 , D 1 ,
D
D2, 3/D31, D32, D33, D34, D4/D41, D42, D43, andD44,
o r y o u m a y s p e c i f yt h e h e x a d e c i m a O
l - c o d ei n t h e f o r m
O - X ' n n ' , w h e r e n n i s a v a l i d h e x a d e c i m aO
l -code. The
v a l i d O - c o d e sa r e s h o w n i n F i g u r e 1 2 . l f y o u s p e c i f y
o n l y t h e d i s k d r i v e , y o u m u s t s e t t h e r e a c r / w r i t eb i t s ( t h e
l a s t f o u r b i t s o f t h e O c o d e ) b e f o r ey o u c a n p e r f o r m
the l/O operation. This can be done through the $RDD
or $WRTD macro instructions.
Note: D31. D32, D33, D34,D41,D42,D43, and D44
a r e f o r 5 7 0 4 - S C 2o n l y .
Macro InstructionStatements
D i s k D e v i c eS u p p o r t
a3
lnput/Output
vo
O-ByteSettinq(Hex)
O p e r a t i o n D r i v e 1 D r i v e 2 D r i v e3 D r i v e4
5 4 4 4 R e m o v a b l eD i s k
Control
Read
Write
Scan
AO
A1
A2
A3
Write
Scan
A8
Ag
AA
N D
T h i s m a c r o i n s t r u c t i o ng e n e r a r e e
s q u a t e st o e s t a b l i s hl a b e l s
f o r t h e d i s k l O B s . T h e s el a b e l sa r e o f f s e t sf r o m t h e b e g i n n i n g o f t h e I O B a n d a r e u s e da s d i s p l a c e m e n ft rso m t h e b e g i n n i n go f t h e I O B w h e n y o u w i s h t o i - e f e rt o o n e o f t h e
BO
B1
B2
f i e l d s . T h e l a b e l sg e n e r a t e db y t h i s m a c r o i n s t r u c t r o na r e
g i v e n w i t h t h e f i e l d so f t h e I O B i n A p p e n d i x C . D i s k
B3
l n p u t / O u t p u t B l o c k . f o a v o i d d u p l i c a t el a b e l s ,y o u s h o u l d
u s e t h i s m a c r o i n s t r u c t i o no n l y o n c e i n a p r o g r a m .
5 4 4 4 F i x e dD i s k
Control
Bead
Block Offsets ($ lO E D )
B8
B9
BA
BB
T h e f o r m a t o f t h e g I O E D m a c r o i n s t r u c t i o ni s :
$IOED
5 4 4 5D i s k
Control
Read
Write
Scan
CO
C1
C2
C3
CB
C9
CA
CB
DO
D1
D2
D3
DB
D9
DA
DB
Read from Disk (gRDD)
T h i s m a c r o i n s t r u c t i o ng e n e r a t e sa n i n t e r f a c et o t h e d i s k
i n p u t / o u t p u t s u p e r v i s o rt h a t i s t o r e a d f r o n r t l r e d i s k d e v i c e
W h e n u s i n gt h i s m a c r o i n s t r u c l i o n y, o u m u s t :
Figure12. O-ByteHexadecimal
Settingsr
o
E R R E C I O S / U S F F i n d i c a t e sw h e t h e r t h e i n p u t / o u t p u t
s u p e r v i s oi rs t o h a n d l ee r r o r r e c o v e r y .l f y o u s p e c iyf l O S ,
t h e s u p e r v i s o rh a n d l e se r r o r r e c o v e r ya n d r e t r i e st h e o p e r a t i o n w h e n e r r o r so c c u r . l f y o u s p e c i f yU S E R ,t h e s u p e r v l s o r
d o e s n o t r e t r y t h e o p e r a t i o na n d r e t u r n s c o n t r o l t o y o u . l f
t h i s o p e r a n di s n o t s p e c i f i e dI,O S i s a s s u m e d .
L O G Y / N i n d i c a t e sw h e t h e r t h e l / O s u p e r v i s o ri s t o l o g
e r r o r st h a t o c c u r d u r i n gt h e o p e r a t i o n . l f y o u s p e c i f yy
( y e s ) ,e r r o r c o n d i t i o n sa r e l o g g e do n t h e s V s t e mp a c k . T h i s
i n f o r m a t i o n i s u s e db y l B l V lc u s t o m e re r r g i n e e r sl.r l ( n o 1
i n d i c a t e sn o l o g g i n gi s t o b e d o n e f o r t h i s l O B . l f t h i s o p e r _
a n d i s n o t e n t e r e d ,Y i s a s s u m e d .
V E R - Y / N i s u s e df o r o u t p u t o p e r a t i o n s . Y ( y e s ) i r r d i c a t e s
t h e w r i t t e n d a t a s h o u l c bi e v e r i f i e d ; N ( n o ) i n d i c a t e si t
s h o u l dn o t . l f t h i s o p e r a n di s o m i t t e d ,Y i s a s s u m e d .
P r o v i d ea n I O B a n d u s et h e $ I O E D m a c r o i n s t r u c t r o r r
t o e s t a b l i s thh e o f f s e t si n t h e l O B .
o W a i t f o r t h e c o m p l e t i o no f t h e i n p u t o p e r a t i o n( u s i n g
$WAIT).
o
Checkfor end of extent when the recordis received
c o m p l e t i o nc o d e o f X ' 7 0 ' ( $ C p E O X )a t $ D F C M p i n t h e
DTF.
l f b o t h r e a d i n ga n d w r i t i n g f o r a p r o g r a ma r e t o D e p e r f o r m e d u s r n ga s i n g l el O B , t h e b i t s o f t h e O - b y t ea r e a t t e r e d
t o i n d i c a t ea r - irn v a l i d o p e r a t i o n . I n t h i s c a s e ,y o u m u s t s e t
o f f t h e b i t s o f t h e O - b y t e f o r a l l b u t t h e f i r s t r e a c l( o r w r i t e )
o p e r a t i o ni n t h e p r o q r a m .
l f y o u w i l l n e e dt o u s et h e d a t a i n r e g i s t e 1
r a t a l a t e rt i m e ,
y o u s h o u l ds a v et h e c o n t e n t so f t h a t r e g i s t e br e f o r ei s s u i n g
t l r eS R D D m a c r oi n s l r u c t i o n .
T h e f o r n r a t' - r it h e $ R D D m a c r o i n s t r u c t i o ni s :
CHN-addressspecifies the addressof thr: leftmost byte of
t h e n e x t I O B f o r t h e o p e r a t i o ni f m o r e t h a n o n e I O B i s
r e qu i r e d .
-
4b
F i g u r e1 2 a p p l i e so n l y t o 5 7 O 4 - 5 C 1 . F o r 5 7 0 4 - S C 2 y, o u c a n
s p e c i f yo n l y t h e d i s k d r i v e ( F 1 , R 1 , e t c . ) w i r h t h e O p a r a m e r e r .
a n d r e a d / w r i i eb i t s a r e s e t w i t h g F lD D o r g W R T D .
l N a m e lI $ t l D D I I O B - a d d r e s s , C S - a d d r e s s , N S E C T - n u m b e r
44513340]
[,Dls K-544415
P a g eo f G C 2 1 - 7 6 0 8 - 2
l s s u e2
d 8 M a r c h1 9 8 0
B yT N L : c N 2 1 - 5 7 0 0
IOB-addressprovides the addressof the leftmost byte of
t h e I O B w h i c h y o u c r e a t e dt h r o u g hy o u r g I O B D m a c r o
I n s t r u c t i o n . T h e l a b e l p r o v i d e d m u s t b e t h e s a m ea s t h e
n a m es p e c i f i e do n y o u r $ I O B D m a c r o i n s t r u c t i o r r .
CS-addressis the addressof the rightmost byte of the main
s t o r a g ea r e ac o n t a i n i n gt h e d i s k c y l i n d e r / s e c t o ra d d r e s so f
t h e a r e ay o u w a n t t o r e a d . T h e c y l i n d e r / s e c t o ra d d r e s sf o r
u s ew i t h r h e 5 4 4 4 i s a t w o - b y t e , h e x a d e c i m a n
l umber. The
f i r s t b y t e s p e c i f i e st h e c y l i n d e r ;t h e s e c o n ds p e c i f i e st h e
sector. For use with the 5445, or 3340, a three-byte hexa_
d e c i m a l d i s k a d d r e s si s p r o v i d e d t l r r o u g h t h i s e n t r y . T h e
f i r s t b y t e s p e c i f i e st h e c y l i n d e r ;t h e s e c o n d ,t h e h e a d
n u m b e r ;t h e t h i r d , t h e s e c t o r .
I O B - a d d r e s sp r o v i d e st h e a d d r e s so f t h e d i s k I O B f o r t h i s
o p e r a t i o n . T h e a d d r e s si s t h e n a m e s p e c i f i e do i r t h e r e l a t e d
$ I O B D m a c r oi n s t r u c t i o r r .
CS-addressis the addressof the rightmost bVte of the main
s t o r a g ea r e ac o n t a i n i n gt h e d i s k c y l i n d e r / s e c t o ra d d r e s so f
t h e a r e at o w h i c h y o u w a n t t o w r i t e . T h e c v l i n d e r / s e c t o r
a d d r e s sf o r u s e w i t h t h e 5 4 4 4 i s a t w o - b y t e h e x a d e c i m a l
n u m b e r . T h e f i r s t b y t e s p e c i fi e st h e c y l i n d e r ;t h e s e c o n d
specifiesthe sector. For use with the 5445 or the 3340,
a t h r e e - b y t eh e x a d e c i m a d
l i s k a d d r e s si s p r o v i d e dt h r o u g h
t h i s e n t r y . T h e f i r s t b y t e s p e c i fi e st h e c y l i n d e r ;t h e s e c o n d .
the headnumber;the third, the sector.
N S E C T - n u m b e rs p e c i f i e st h e h e x a d e c i m a n
l umber of disk
s e c t o r s ,m t n u s o n e , t o b e w f l t t e n .
N S E C T - n u n b e r i n d i c a t e st h e l r e x a d e c i m anl u m b e r o f s e c t o r s .
m r n u so n e , t o b e r e a di n t h i s o p e r a t i o n .
DISK-5444/5445/3340 specifies whether the operation is
o n a 5 4 4 4 , a 5 4 4 5 , o r a 3 3 4 0 d i s k d r i v e . l f t h i s o p e r a n di s
omitted, 5444 is assumeo.
Write to Disk ($WRTD)
T h i s m a c r o i n s t r u c t i o ng e n e r a t e sa n i n t e r f a c et o t h e d i s k
i n p u t / o u t p u t s u p e r v i s o rn e e d e dt o w r i t e r e c o r d st o d i s k .
W h e r ry o u u s et h i s m a c r o i n s t r . u c t i o ny ,o u m u s t :
.
P r o v i d ea n l O B , a n d u s et h e $ I O E D m a c r o i n s t r u c t r o nt o
e s t a b il s h t h e o f f s e t si n t h e l O B .
o W a i t f o r t h e c o m p l e t i o no f t h e o u t p u t o p e r a t i o n( u s i n g
$WAIT).
DISK-5444/5445/3340 specifies whether the operation is
o n a 5 4 4 4 , a 5 4 4 5 , o r a 3 3 4 0 d i s k d r i v e . l f t h i s o p e r a n di s
omitted, 5444 is assumed.
Wait for Disk IOS Completion ($WAtT)
T h i s m a c r o i n s t r u c t i o ni s u s e dw i t h t h e g R D D a n d $ W R T D
m a c r o i n s t r u c t i o n s . l t g e n e r a t e st h e c o d e t h a t a l l o w s y o u
t o w a r t f o r c o m p l e t i o no f t h e d i s k I O S o p e r a t i o n .Y o u p r o v i d e t h e l a b e l o f t h e a s s o c i a t e dI O B a n d a n a d d r e s sr o r e c e r v e
c o n t r o l i n t h e e v e n to f a n e r r o r .
l f y o u w i l l n e e dt o u s et h e d a t a i n r e g i s t e 1
r a t a l a t e rt i m e ,
y o u s h o u l d s a v et h e c o n t e n t so f t h a t r e g i s t e rb e f o r e i s s u i n g
t h e $ W A I T m a c r oi n s t r u c t i o n .
T h e f o r m a t o f t h e $ W A I T m a c r o i n s t r u c t i o ni s :
INarn"ll SWAII I
llOB-labell ,FRR-adrlrpss'
l f b o t h r e a d i n ga n d w r i t i n g f o r a p r o g r a ma r e t o b e
p e r f o r m e du s i n ga s i n g l el O B , t h e b i t s o f t h e O - b y t ea r e
a l t e r e dt o i n d i c a t ea n i n v a l i do p e r a t i o n . I n t h i s c a s e y, o u
must set off the bits of the O-bytefor all but the first read
( o r w r i t e ) o p e r a t i o ni n t h e p r o g r a m .
l f y o u w i l l n e e dt o u s et h e d a l a i n r e g i s t e 1
r a t a l a t e rt i m e ,
y o u s h o u l ds a v et h e c o n t e n t so f t h a t r e g i s t ebr e f o r ei s s u i n g
t h e m a c r oi n s t r u c t i o n .
T h e f o r m a t o f t h e $ W R T D m a c r o i n s t r u c r i o ni s :
I N a r n e lI S W R T D I I O B - a d d r e s s , C S - a d d r e s s , N S E C T - n u m b e r
[ , D l s K - 5 4 4 4 / 5 4 4 5I 3 3 4 0 ]
I O B - l a b e li s t h e n a m e a s s i g n e dt o t h e I O B i n t h e g I O B D
m a c r o i n s t r u c t i o n .T h i s s a m eI O B m u s t h a v ep r e v i o u s l y
b e e ns p e c i ife d i n e i t h e ra $ R D D o r $ W R T D m a c r o i n s t r u c t i o n . l f t h i s o p e r a n d i s n o t e n t e r e d ,t h e a d d r e s si s a s s u m e d
'l
to be in regist€r .
E R R - a d d r e s s p e c i fi e s t h e a d d r e s so f t h e r o u t i n e r n y o u r
p r o g r a mt h a t h a n d l e se r r o r sd e t e c t e di n t h e o p e r a t i o n . l f
t h i s o p e r a n di s n o t e n t e r e d n
, o e r r o r c h e c k i n gi s p e r f o r m e d ,
a n d y o u s h o u l d c h e c k t h e r e t u r n c o d e i n y o u r p r o g r a mt o
d e t e r m i n et h e o u t c o m e o f t h e o p e r a t i o n .
M a c r o In s t r u c t i o n S t a t e m e n t s
D i s k D e v i c eS u p p o r t
41
3741 Device Support
T h i s s e c t i o nd e s c r i b e st h e m a c r o i n s t r u c t i o n st h a r s u p p o r t
t h e d i r e c t l y a t t a c h e d3 7 4 1 D a t a S t a t i o n M o d e l 1 o r 2 o r
P r o g r a m m a b l eW o r k S t a t i o n M o d e l 3 o r 4 . T h e f o l l o w i n o
f u n c t i o n sa r e p r o v i d e d :
o
CHN-addressindicatesthe addressof the next DTF in the
c h a i n o f D T F s . l f t h e r e i s n o D T F c h a i n ,t h e o p e r a n di s
o m i t t e da n d X ' F F F F ' i s a s s u m e d .
B u i l d a p r e - o p e nD T F a n d a s s i g ni t s o f f s e t s .
B u i l d t h e i n t e r f a c er e q u i r e dt o r e a d i n p u t r e c o r d sf r o m
t h e 3 7 4 1 d e v i c ev i a a G E T .
a
BUFNO-l /2 allows you to specify either one or two buff e r s . l f t h i s o p e r a n di s o m i t t e d , o n e b u f f e r i s a s s u m e o .
B u i l d t h e i n t e r fa c e r e q u i r e dt o w r i t e o u t p u t r e c o r d st o
t h e 3 7 4 1 d e v i c ev i a a P U T .
T h e D T F s p r o v i d ei n f o r m a t i o n t o t h e d a t a m a n a g e m e n r
r o u t i n e st h a t p e r f o r m t h e i n p u t / o u t p u t o p e r a t i o n s . T h e
interfacesto these operations are provided through the
3741 macro instructions.
Define the File for 3741 ($DTFK)
T h e D T F p r o v i d e si n f o r m a t i o n n e e d e dt o a l l o c a t e ,o p e n ,
a n d a c c e s sa f i l e o n t h e 3 7 4 1 . T h i s m a c r o g e n e r a t e st h e
DTF for this purpose.
UP-maskspecifies the mask to test the eight external
i n d i c a t o r s . T h e c o d e f o r t h e U P - m a s km u s t b e s p e c i f i e d
a s 8 b i n a r y b i t s . F o r e x a m p l e ,t o t e s t b i t s 0 , 3 , 5 , a n d 7 ,
y o u w o u l d e n t e r U P - l 0 0 1 0 1 0 1 . T h e U P - m a s ki s c o m o a r e o
t o t h e e x t e r n a li n d i c a t o r ss e t o n b V t h e S W I T C H s t a t e m e n t
f o r c o n d i t i o n a l l yo p e n i n g f i l e s . l f t h e b i t s t h a t a r e o n i n t h e
U P - m a s ka r e a l s oo n i n t h e e x t e r n a l i n d i c a t o r ss e t o n b v t h e
S W I T C H s t a t e m e n t ,t h e f i l e w i l l b e o p e n e d . l f t h e U P - m a s k
i s a l l z e r o e so r n o t u s e d ,t h e f i l e w i l l b e u n c o n d i t i o n a l l v
ooeneo.
/ V o f e . l n f o r m a t i o n o n s e t t i n ge x t e r n a l i n d i c a t o r s( S W I T C H
statement) can be found in the IBM System/3 Model lS
System Control Programming Reference Manual (Ior
P r o g r a mN u m b e r 5 7 0 4 S C 1 ) . G C 2 1 - 5 0 1 7 . a n d t B M
System/3 Model l5 System Control programming Concepts
and ReferenceManual (for Program Number 5704-SC2).
G C 2 1- 5 16 2 .
T h e f o r m a t o f t h e $ D T F K m a c r o i n s t r u c t i o ni s :
INamei | $DTFK | ruAME-titename,RECL-number,lO-address
t , A C - - L / O [l , R C A D - a d d r e s s [] , B U F N O - i / 2 ]
[ , C H N - a d d r e s s ][ , U P - m a s k ]
Construct 3741 Get lnterface ($GETK)
NAME-filename specifies the name of the f ile. The name
m u s t b e e i g h t c h a r a c t e r so r l e s si n l e n g t h . T h i s o p e r a n d
m u s t b e s p e c i fi e d .
T h e $ G E T K m a c r o i n s t r u c t i o ng e n e r a t e st h e i n t e r f a c en e e d e d t o c o m m u n i c a t ew i t h t h e 3 7 4 1 d a t a m a n a g e m e n w
t hen a
r e c o r d i s b e i n g r e a d f r o m t h e 3 7 4 1. f o u s e t h i s m a c r o
i n s t r u c t i o n ,c o n s t r u c t a 3 7 4 1 D T F f o r t h e f i l e a n d u s et h e
$ D T F O m a c r o i n s t r u c t i o nt o e s t a b l i s ht h e o f f s e t sf o r t h e
D T F . Y o u m u s t a l s o p r o v i d e a n E X T R N s t a t e m e n tw i t h
R E C L - n u m b e rs p e c i f i e st h e d e c i m a l l e n g t h ( f r o m 1 t o 1 2 8 )
o f t h e l o g i c a lr e c o r d . T h i s o p e r a n d m u s t b e s p e c i f i e d .
t h e l a b e l $ $ C P I Pt o u s e t h i s m a c r o . l f y o u w i l l n e e d t o
u s e t h e d a t a i n r e g i s t e r2 a t a l a t e r t i m e , y o u s h o u l d s a v e
t h e c o n t e n t so f t h a t r e g i s t e rb e f o r e i s s u i n gt h e $ G E T K
macro instruction.
lO-addressprovides the addressof the leftmost byte of an
a r e ai n m a i n s t o r a g et h a t c o n t a i n st h e b u f f e r s a n d t h e l O B .
T h i s o p e r a n dm u s t b e s p e c i f i e d . T h e a m o u n t o f s r o r a g e
must be the record lengthplus 26 times the BUFNO.
T h e c o d e g e n e r a t e db y t h i s m a c r o i n s t r u c t i o ng i v e sc o n t r o l
t o t h e d a t a m a n a g e m e n tr o u t i n e . T h e d a t a m a n a g e m e n t
r o u t i n e c o m p l e t e se x e c u t i o n a n d r e t u r n sc o n t r o l t o t h e
generatedcode.
A C - l / O s p e c i fi e sw h e t h e r t h e D T F i s i n p u t o r o u t p u t . l f
t h i s o p e r a n di s n o t s p e c i f i e d ,i n p u t i s a s s u m e d .
RCAD-addressspecifiesthe addressof the leftmost byte
o f t h e l o g i c a lr e c o r d . l f t h i s o p e r a n d i s n o t e n t e r e d ,
X'FFFF'isassumed.
48
The format of the $GETK macroinstructionis:
tNamell $Cerrcl eOf-aOOress
[,DTF-address]
[,ERR-addressl
EOF-address
specifiesthe addressin your programthat
receives
controlwhen the end of file is detected.This
operandmust be specified.
DTF-addressindicatesthe addressof the leftmost byte of
the DTF for this file. lf this operandis not specified,the
addressis assumed
to be in register2.
ERR-address
suppliesthe addressin your progr.amwhere
control is passedif the controlledcanceloption is taken in
response
to a permanentl/O error. lf this operandis
omitted,no codeis generated
to checkfor the controlled
cancelcompletioncode.
Construct 3741 Put lnterface ($pUTK)
The $PUTK macroinstructiongenerates
the interfaceneeded
to put a recordon the 3741. You must providea DTF for
t h e f i l e a n d u s et h e $ D T F Om a c r oi n s t r u c t i o n
to establish
the offsetsin the DTF. You must alsoprovidean EXTRN
statementin your programwith the label$$CpOpto use
t h i s m a c r o . l f y o u w i l l n e e dt o u s et h e d a t ai n r e g i s t e2r
at a latertime, you shouldsavethe contentsof that register
beforeissuingthe $PUTK macroinstruction.
The codegenerated
by this macroinstructiongivescontrol
to the data management
routine. The data management
routinecompletesexecutionand returnscontrol to the
generated
code.
The format of the $PUTK macroinstructionis:
lNamell $PUTK| [D-Ir-aodress][,ERR-address]
DTF-address indicates the address of the leftmost byte of
t h e D T F f o r t h i s f i l e . l f t h i s o p e r a n d i s n o t s p e c i f i e d ,t h e
addressis assumedto be in register2.
ERB-addresssuppliesthe addressin your program where
control is passedif the controlled cancel option is taken in
Tape Device Support
T h i s s e c t i o nd e s c r i b e st h e m a c r o i n s t r u c t i o n st h a t s u p p o r t
t h e I B M 3 4 1 0 1 3 4 1 1M a g n e t i cT a p e S u b s y s t e m . T h e f o l l o w .
i n g f u n c t i o n sa r e p r o v i d e d :
o
B u i l d a p r e - o p e nD T F f o r t a p e a n d a s s i g nt t s o f f s e t s .
o
B u i l d t h e i n t e r f a c e sr e q u i r e dt o r e a d i n p u t r e c o r d sf r o m
a t a p e d e v i c ev i a a g e t o r a r e a d .
o
B u i l d t h e i n t e r f a c e sr e q u i r e dt o w r i t e o u t p u t r e c o r d st o
a t a p e d e v i c ev i a a p u t o r a w r i t e .
o
B u i l d t h e i n t e r f a c er e q u i r e dt o i s s u et a p e c o n t r o l
commands.
o W a i t f o r c o m p l e t i o n o f r e a d ,w r i t e , o r t a p e c o n t r o l
operations.
The tape DTFs provideinformationto the tape data mana g e m e n tr o u t i n e st h a t p e r f o r m t h e i n p u t / o u t p u t o p e r a t i o n s .
T h e s eo p e r a t i o n sa r e p r o v i d e d t h r o u g h t h e t a p e s u p p o r t
macro instructions.
Define the File for Tape ($DTFT)
T h e D T F p r o v i d e si n f o r m a t i o n n e e d e dt o a l l o c a t ea n d o p e n
a t a p e d e v i c e . T h i s m a c r o i n s t r u c t i o ng e n e r a t e st h e c o d e
that builds the tape DTF. SeeAppendix B: Def ine the
File Control Blocks for a description of the pre-open and
p o s t - o p e nD T F s .
T h e f o r m a t o f t h e $ D T F T m a c r o i n s t r u c t i o ni s :
INamel| $DTFT I NAME-filename,tO-address,BLKL-number,
R E C L - n u m b e r[ , U P - m a s k ][ . A C - t N / O U T ]
[ , C H N - a d d r e s sL]B A S I C - Y i NJ
I , R C A D - a d d r e s st l, M O D E - 6 C A T E / M O V E I
[,MBUFF-Y/N
] [.RECFM-code]
[ , L l O A - n u m b e r t] , S P A N - Y / N lt . C O D E - A / E l
[ , O S E T - B / n u m b e r[], E N D c o d e ] [ . M V F - Y / N ]
NAME-filename is a required operand specifying the name
o f t h e t a p e f i l e . T h e f i l e n a m ec a n b e u p t o e i g h t c h a r a c t e r s
i n l e n g t h a n d m u s t b e t h e s a m ea s t h e n a r n eo f t h e / / F I L E
statement.
responseto a permanent l/O error. lf this operand is
omitted, no code is generatedto check for the controlled
cancel completion code.
Macro Instruction Statements
49
lO-addressspecifies the addressof the leftmost byte of the
m a i n s t o r a g ea r e au s e dt o c o n t a i n a l l b u f f e r s a n d l O B s . T h i s
o p e r a n d i s r e q u i r e d . T h e l e n g t h o f t h e a r e as p e c i f i e db v
A C - l N / O U T s p e c i fi e s t h e t y p e o f f i l e . l N s p e c i fi e sa n i n p u t
f i l e ; O U T , a n o u t p u t f i l e . l f t h i s o p e r a n d i s n o t e n t e r e d ,l N
(input) is assumed.
t h i s a d d r e s si s s p e c i f i e di n t h e L I O A o p e r a n d .
Noti:: l{ basic data managententroutines are used to
p r o c e s st h e f i l e , t l r i s o p e r a r r ds h o u l d p o i r ) t t o a 4 0 _ b v t e
area
to containthe tape lOB.
BLKL-number is a required operand that specifiesthe decim a l b l o c k l e n g t hf o r t h e f i l e . T h e m i n i m u m b l o c k l e n g t h
a l l o w e d i s 1 8 b y t e s . i f a s h o r t e r l e n g t h i s s p e c i f i e d ,1 g i s
a s s u m e d . F o r f i l e sw i t h f i x e d - l e n g t hr e c o r d s ,t h e b l o c k
l e n g t h m u s t b e a m u l t i p l e o f t h e r e c o r d l e n g t h ;f o r f i l e s w i t h
v a r i a b l e - l e n g t rhe c o r d s ,t h e b l o c k l e n g t h m u s t e q u a l t h e
l e n g t h o f t h e l o n g e s tr e c o r d p l u s e i g h t .
N o t e : l f b a s i ct a p e d a t a m a n a g e m e n it s u s e d .t h e b l o c k
l e n g t h i n t h e D T F ( $ D F B K L ) m u s t b e u p d a t e da f t e r t h e f i l e
i s o p e n e da n d b e f o r e a n y r e a d o r w r i t e o p e r a t i o n i s p e r _
f o r m e d . T h e f i e l d m u s t a l s ob e u p d a t e db e f o r ea n y s u b s e q u e n t r e a do r w r i t e i f t h e l e n g t h u s e d i s d i f f e r e n t t h a n t h e
p r e v r o u sr e a d o r w r i t e .
R E C L - n u m b e r i s a d e c i m a l v a l u es p e c i f y i n gt h e l e n g t h o f a
l o g i c a lr e c o r d i n t h e f i l e . l f v a r i a b l e - l e n g t rhe c o r d sa r e u s e d
f o r t h e f i l e , t h e r e c o r d l e n g t h s p e c i f i e dm u s t b e e q u a l t o t h e
l o n g e s tr e c o r d p l u s f o u r . T h e m i n i m u m r e c o r d l e n g t h w h e n
v a r i a b l e - l e n g t rhe c o r d sa r e u s e d i s f o u r , w h i c h r e s u l t si n
z e r o - l e n g t hr e c o r d s . T h e m i n i m u m r e c o r d l e n g t h f o r f i l e s
u s i n gf i x e d - l e n g t hr e c o r d si s 1 8 . T h i s o p e r a n d i s r e q u i r e d .
UP-mask specifiesthe mask to test the eight external
indicators. The code for the UP-nraskmust be specified
a s 8 b i n a r y b i t s . F o r e x a m p l e ,t o t e s t b i t s 0 , 3 , 5 , a n d 7 ,
y o u w o u l d e n t e r U P - 1 0 0 1 0 1 0 1 . T h e U p - m a s ki s c o m p a r e d
to the external indicators set on by the SWITCH statement
f o r c o n d i t i o n a l l yo p e n i n gf i l e s . l f t h e b i t s t h a t a r e o n i n
t h e U P - m a s ka r e a l s oo n i n t h e e x t e r n a l i n d i c a t o r ss e t o n b y
t h e S W I T C H s t a t e m e n t ,t h e f i l e w i l l b e o p e n e d . l f t h e
U P - m a s ki s a l l z e r o e so r n o t u s e d ,t h e f i l e w i l l b e u n c o n d i tionally opened.
Note: lnformation orr setting external indicatr:rrs{SWITCH
statement) can be found int-he IBM Svstem/3 Modet lS
System Control Programming Reference Manual for prog r a m N u m b e r 5 7 0 4 - S C 1, G C 2 | - 5 O 7 7 , a n d I B M
System/3 Model l5 System Control Programming Concepts and Reference lVlanual for Program Number 5704-
sc2. GC21.5162.
N o t e : T h e o p e r a t i o nc o d e i n t h e T a p e D T F w i l l b e i n i t i a l i z e d a c c o r d i n gt o t h e e n t r i e ss p e c i f i e d( o r d e f a u l t s )o f t h e
A C a n d B A S I C o p e r a n d s ,a s f o l l o w s :
AC-IN
AC-OUT
BASIC-Y
R e a df o r w a r d
Write
BASIC.N
Get
Put
CHN-addressspecifiesthe addressof the next DTF in the
chainof DTFs. lf there is no DTF chainor if this DTF is
t h e l a s t D T F i n t h e c h a i n , t h i s o p e r a n ds h o u l d b e o m i t t e d
andX'FFFF'assumed.
E A S I C Y t ' N s p e c r f i e sw h e t l r e rr i r i s t ) ' f - Fu s e st h e b a s i ca c c e s s
m e t h o d . l f t l r i s o p e r a r r di s r r o t e n t e r e d ,N ( n o ) i s a s s u m e d .
lVotes'
1 " B A S I C Y n t u s r b e s p e c i f i e di { a n y o f t h e f o l l o w i n g m a c r o
r n s l . r L t { : t i oai lrse u s e d t o t . r r o c e sf sh q f i l e : $ R D - f , $ W n f f ,
$CfLl or $W'tT.
2 . l f y o u p r o c e s sA S C I I f i l e s u s ; i n qt f r e b a s i ca c c e s sm e t h o d ,
y o u m u s t t f a n s l a t et h e c h a r a c t e r si n y o u r p r o g r a m .
3 . M u l t i v o l u m e f i l e s a r e s u p p o r t e dw i t h t h e h a s i ca c c e s s
rnethoclb
, u t t h e E X T R N s t a t e m e n tt h a t i s p r o v i d e d
must be $$BTMM for multivolumesupport. $$Afnvl
and $$BTMM should not be r-rsedirr tfre same program.
$ $ S f M M s u p p o r t sb o t h s i n g l ea n c lm r r l t i v o l r - r mfei l e s .
4 " D e f e r r e dc p e r r i s r r o t a l l o w e < w
J i t h t h e b a s i ca c c e s s
method.
RCAD-addressspecifies the syrrrbolicrr:corclarea ;rdr:lress.
-Ihis
o p e r a n c il s r e q u i r e df o r a l l o p e r a t i o r r su s i n gt h e b a s i c
a c c e s sm e t h o d . l f s t a n d a r dd a t a r n a r r a g e f i r e ni st u s e r j ,t h i s
o p e r a n d i s r e q u i r e df o r a n o u t p u t o p e r a t i o n a n c lf o r a n
i n p u t o p e r a t i o nu s i n g m o v e m o c l e .
M O D E - L O C A T E i M O V F i r r d i r ; a t ew
s l r e t h e rt h e l o 6 6 1 sm 6 6 s
o r m o v e r n o d e i s u s e d . l { t h i s o p r e r a n ci sl r r o t s p e c i f i e d ,
f u l O V Ei s a s s u r n e d .W h e n l o c a t e r n o d e i s s p e r : i f i r : ctJl r,e r e c o r d
a d d r e s s( R C A D - a d d r e s si)s s e t t r . lt h r : a c i c i r e rosf t l r e r r : c o r d
i n t h e b u f f e r . W h e n m o v e m o c l r :i s L r s e dr.e < ; o r r lasr e r r l o v e o
fronr the lrr-rffertr-rthe locatiorr sltecifieclbv tht recorr:
M B U F F - Y / N i n d i c a t e sw h e t h e r r n o r e t l t a r r . r r r i:rrr r f r : r j , r
u s e d . l f t h i s o p e r a n d i s n o t s p e c i f i e d ,N ( r r o ) i s a s s u r r r e r l .
^fhe
n u m b e r o f b u f f e r s i s d e t e r r n i r r e rb_yl l l t r : l o r r q t l ro f t l r e
l / O a r e a ,s p e c i f i e db y t h e L I O A o p e r a n c l .. l i r i s o l r r : r a r r r r
s h o u l d n o t b e u s e di f B A S I C Y i s s p r : c i 1 i e r i .
L I O A - n u n t b e r i s t h e t o t a l r - l e c i r r r lael n g l h o f t l r e l / O a r e a i f
m o r e t h a n t w o b u f f e r s a r e r e q u i r e c (l t v l U L j F Fy ) . l f t t r e
n u m b e r s p e c i f i e di s z e r o o r i f t i r i s e n t r y i s r . r r r r i t r c rt iw, c r
b u f f e r sa r e a l l o c a t c di n t h e l / O a r e a l f t h i s e r r r r yi s r r r , , l
z e r o , a s m a n y b u f f e r s a s p o s s i b l ea r e a l l o c a t e di n t h e l , / O
area.
T h e f o l l o w i n g f o r m u l a c a n b e u s e ctl o r J e t e r n r i r rrei r e l e r r g t h
of the l/O area:
L e n g t h o f t h e l / O a r e a . = ( 4 0 r b l o c k l r : n c l t l rt)i r r r e s
(nrrmbeo
r f brrffprsi
T h i s o p e r a n ds h o u l d n o t b e u s e d i f B A S I ( ) Y i s s l r e c i f i e d .
S P A N - Y / N s p e c i f i e sw l r e t l r e rs p a n n e crl e c o r r l sa r n L r s t _ . r l1i .
s p a n n e dr e c o r d sa r e u s e d ,B A S I C Y r r r u s ta l s o l r r :s P r : r ; i f i l r t l .
l f t h i s o p e r a n d i s o m i t t e d , N ( n o ) i s a s s r . r r r r r :Sr ,p1, ., r c i f y i n g
S P A N Y c a u s e st h e s p a r r r r e rt le r : r i r db i t i r r t l r r rt i r 1 . ;le; r t r | lt o
b e s e t o n . W h e n y o u u s e S P A N . Y , y o u n ) l . r i ti | a r i I l r r :r B C ordsfrom block to block.
a d r l re s s "
L o c a t e m o c l ei s v a l i d o n l y f o r i r i p u t f i l r : s . l l r i c o t r a r a n r j
s h o u l t ln o t b e u s e d i f B A S I C Y i s s r : e r ; i e
f rJ
C O D E - A / E s p e c i fi e sw h e t h + : rt l r r : I i l r rr s a r r F U { ] i t l O f i l t : o r
A S C I I f i l e . l f t h e f i l e i s a n F B C D I C f i l e , s p r - - r - :Ci tO
y DE l:
l f t h e f i l e i s a n A S C I I f i l e o r c a r rh e r : i l l r e rA S O I I o r E B C D I C ,
s ; . r t r c iC
f yO D E - A . l f t l r i sr t p e r a r r it sl r r o t l r r t l r : r l _ F i s
assurne(l _
RE(.:FlVl-t:ttde
specifies the reccrcl fornr;11rrst:tlior tlrr_,
{i1e.
T l r , '' : o d c sa n d t h e i r n r e a r r i r r q
a sr r :
Code
Record Format
F
FB
F i x e c l ,E B C D I Co r A S C I t
Fixed blocl >
E
n
P
e
I'
*!
;
;;
6 . o
'
,
n
g E€
3 " >
d : Y
E
;:
m
Y
GC21-7608-2
L
7
€sfi
€ : ;
l
l
=
C
E E
A 3 F
=
F
v
c
-":ifs;
a
h
F
c
a
E fp
*;
> ;
o
E ; :
= o
i ? : 3
o E : " P
e E
t
= E E: E g €sF
,5.
i
l: 5*a:
9 . eE s t E I
9E !€i3
E : ; i r S i :s
i a
=
8
a
c
ttt
o
t : : 3
€ E: E
;ng
F
E i E i $
: G o =
"9^fr,
i F
o
o
.2
a
=
o
?
z
o
!
; !
LlJ
E
€ =
o :
so 9^
c
: -
;
v
>
=
E E
e l l
o
Z
*L .x
C
E ;
:Y
8 F
o
- =L
;
a
9 :
-
O
5 6
Ea
. 9 :
! F
: €
o..9
>;
.
:
H
i;
o
f
=
E
A
6
.9
F
X
o
,F
6
;€
3' ,i
: ; ;
, 9
E
I
\
.!
b
g
{
ET E
E €
6
f i
;E
3,;
b
e :
flg 'i
.{s
o . 6
,
J
!
Ea :€
' : 6E
{
U
=
o
.
:
-
a
E
}
-
6
F
O
I
::
o
\
€
:
I
I
I
I
GC21-7608-2
II
o
,
E
l
T
l
o
II
I
I
I
I
I
I
I
I
I
Fold
Fold
II
I
I
FIRSTCLASS
II
P E R M I TN O . 3 8 7
II
R O C H E S T EM
R ,I N N .
II
-
B U S I N E S SR E P L Y M A I L
NO POSTAGE STAMP NECESSARY IF MAILED IN THE UNITED STATES
POSIAGE WIIT 8E PAID BY
r 6
-I
--
r <
l u t
l ( D
t
r1
-I
IBM Corporation
GeneralSystemsDivision
DevelopmentLaboratory
Publications,Dept. 245
Rochester,Minnesota55901
\
l o )
-
t
o
, z
I 9
ct
i P
l' (c ,D
I
!
d
t Fold
Fold
I (t,F
I P
Ir 6 )
' O
t \
t r I
l 6 )
,
I
I
I
In'ternationalBusinessMachinesCorporation
SystemsDivision
Gelneral
5775D GlenridgeDrive N.E.
Atlanta, Georgia30301
( U S AO n l y )
Gelneral
Business
Group/ International
44 South Broadway
White Plains,New York 10601
u. s.A.
( | nternational
)
o
@
N
IBM System/3Modet15
SystemControl ProgrammingMacros
Reference
. E
tr
E
GC21-7608-2
9
J ca - X
6 > >
P $ - o
o
3 E €
F
Y
g
-
e
m
-
:
,
R u ;
L
*
:
:
= . Y
c E
3 0
-
o
Y
:
-
l
; 6 9
- : E
! : ;
t
=
c
E A A 3 F
:.; fs;
7
s
o
c O ! L
? c
ie1
.9:E'
:*
E
; :
E o e ;
'Pt':i
>
i
( D - n
=
5
F
2
o f
;
?
uJ
<
E
I
?
o
o
l
E
"
@
: E : f i € EF
i : 5 * a EI
l !
-
c
l - t r -
F h
oc
rrJ
o
ur
E
=
^
.
l l = > 6
:
,
P
9E
o-
-
.2
' oE .g EF ' : E
=
3
r
.
o
o
o
o
:
I
-
=
F
J
o
o
c
3 a t : 3 3 a
t s E i ;Esi g$
F E F
:]i6.,s
,;E
:X
; !
=€o ==
l
r-r
o
P
l
E
2
o :
j
s 9
F v
: *
d
o
z
t ;
- i
8 F
=.=
F1'
L
X
6
L
=
-
9.:
:
6
j
F
;
=
o
c
6 6
o
E
8 e ' E
o
J
Q
O
q,.9
>;
6
.9
= E
E O
=
O
X
6
}
.\
b:
.9
;;
; ;
.e i
\
E
P
q
@
E *
:F
3
o
.g
8 d
i
-
.
:
,
=
!
-
=
>
E
9
\
a
<
P.
g;. 6 {
eri ,i
o - 6
r
J
o
f
F'
E:E
>lt
c
E
4
H
'€: E
6
{
E
v
i
i
l
G
,
j
z
o
o
I
I
I
I
GC21-7608-2
I
l
T
o
I
I
I
I
I
I
II
FIRSTC!"ASS
II
P E R M I TN O . 3 8 7
I
ROCHESTEM
R ,I N N .
I
I
-
B U S I N E S SR E P L YM A I L
NO POSTAGE STAMP NECESSAFY IF MAILED IN THE UNITED STATES
P O S T A G EW I I . I . 8 E P A I D B Y
t @-
TI
r
r-
rt a3
I-I
t
4
rIII
II
IBM Corporation
G e n e r aS
l y s t e m sD i v i s i o n
Development Laboratory
Publications,Dept. 245
Rochester,Minnesota55901
I
\
| (.)
t
, 3
I-
t
t
rEI
, z
I 9
-
o
(t
i ?
,
'l (ct)
I
!
(D
Fold
l
=
t
-
?
t >
t
!
I
r o
, o
l N
r t r
o
EE-==-
-;:=:
,
I
=
InternationalBusiness
MachinesCorporation
GeneralSystemsDivision
5775D GlenridgeDriveN.E.
Atlanta,Georgia30301
( U S AO n l y )
GeneralBusiness
Group/ lnternational
44 South Broadway
White Plains,New York 10601
u. s .A .
( | nternational
I
I
I
I
I
@
N
Source Exif Data:
File Type : PDF File Type Extension : pdf MIME Type : application/pdf PDF Version : 1.4 Linearized : No Page Count : 144 Producer : iText 2.0.3 (by lowagie.com) Modify Date : 2010:07:04 14:32:21+02:00 Create Date : 2010:07:04 14:32:21+02:00EXIF Metadata provided by EXIF.tools