Fujitsu BS2000/OSD COBOL2000 V1.5 Benutzerhandbuch Seite 188

Grundlagen
Beispiel 9-4
Erzeugen und Abbilden eines TFT-Eintrags
(Abbildung in BS2000/OSD V5.0)
URLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLU
OU
OU
/ADD-FILE-LINK INOUTFIL,ISAM.UPDATE, -
OU
/
OU
OU /SHOW-FILE-LINK INOUTFIL,INFORMATION=*ALL LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR (2)
OU
ORLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLROL
URLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLU
OU LINK-NAME LRLRLRLRLRLRLRLRLR FILE-NAME LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR OU
OU
INOUTFIL
OU LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR STATUS LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR OU
OU
STATE
OU LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR PROTECTION LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR OU
OU
RET-PER
OU
BYPASS
OU LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR FILE-CONTROL-BLOCK - GENERAL ATTRIBUTES LRLRLRLRLRLRLRLRLRLRLR OU
OU
ACC-METH
OU
REC-SIZE
OU
F-CL-MSG
OU LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR FILE-CONTROL-BLOCK - DISK FILE ATTRIBUTES LRLRLRLRLRLRLRLRLR OU
OU
SHARED-UPD = YES
OU
IO(USAGE)
OU LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR FILE-CONTROL-BLOCK - TAPE FILE ATTRIBUTES LRLRLRLRLRLRLRLRLR OU
OU
LABEL
OU
CODE
OU
CP-AT-BLIM = *BY-PROG
OU
REST-USAGE = *BY-PROG
OU
STREAM
OU LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR FILE-CONTROL-BLOCK - ISAM FILE ATTRIBUTES LRLRLRLRLRLRLRLRLR OU
OU
KEY-POS
OU
LOGIC-FLAG = *BY-PROG
OU
DUP-KEY
OU
WR-IMMED
OU LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR VOLUME LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR OU
OU
DEV-TYPE
OU
VSN/DEV
ORLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLROL
188
BUFFER-LENGTH=*BY-CATALOG,
SUPPORT=*DISK(SHARED-UPDATE=*YES) ⎭
:N:$F2190202.ISAM.UPDATE
= INACTIVE ORIGIN
= *BY-PROG PROT-LEV
= *BY-PROG DESTROY
= *BY-PROG OPEN-MODE
= *BY-PROG BUF-LEN
= STD CLOSE-MODE = *BY-PROG
WR-CHECK
= *BY-PROG LOCK-ENV
= *BY-PROG (DIN-R-NUM
= *BY-PROG EBCDIC-TR
CP-AT-FEOV = *BY-PROG
BLOCK-OFF
= *BY-PROG
= *BY-PROG KEY-LEN
VAL-FLAG
= *BY-PROG PAD-FACT
= *BY-PROG
= *NONE T-SET-NAME = *NONE
= PUBN03/D3480
⎫
⎬ LRLRLRLRLRLRLRLRLRLRLRLRLRLRLRLR (1)
= FILE
= *BY-PROG
= *BY-CAT
= *BY-PROG REC-FORM
= *BY-CAT BLK-CONTR
= *BY-PROG IO(PERF)
= *BY-PROG
= *BY-PROG, TAPE-MARK
= *BY-PROG F-SEQ
BLOCK-LIM
= *BY-PROG TAPE-WRITE = *BY-PROG
OU
= *BY-PROG POOL-LINK
= *BY-PROG PROPA-VAL
= *BY-PROG READ-I-ADV = *BY-PROG
Dateiverarbeitung
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
OU
= *BY-PROG
OU
= *BY-PROG
OU
OU
= *BY-PROG
OU
= *BY-PROG) OU
OU
= *BY-PROG
OU
= *BY-PROG
OU
OU
OU
= *BY-PROG
OU
= *BY-PROG
OU
OU
OU
OU
U41113-J-Z125-6