RETRIEVAL OF THE PRIME RECORD.(WHICH MAY
BE EITHER FIXED FILE OR A POOL
RECORD)
OA ENTRY
- OAH
HELP MENU
- OA*
TPFDB FILE DISPLAY
- OA/031EFD28
- OA*D Character format
H Hexadecima; Format
L Label Format
T Technical Logical Record
OA*D/HDR Displaying Subfile Header Information
OA*KEY1-R-L/STC.S-|CC.C-GE@KEY2-R-D/3.S-|CZ.C-LE.O-UP
DISPLAY OF MATCHING LRECS
---
--- --
*.S- Search argument
.M- One byte mask
.C- condition EQ GE LE NO NZ
.O- Organization UP Down , Noorg
*DSECT label
* Hardcoded displacement
in LREC
- OAC/00004531 COPY/RESTORE FUNCTION OAC/00004531+:
00004531 에다 현DISAPLY 중인 FILE
을복사 (2번쳐야함)
- OAE
OA ENTRY RESTRICTION HANDLING
OAE*
DISPLAY ENTRY RESTRICTION TABLE
OAEA/TTTTTT|OAINIT
ADD NEW TERMINAL
OAEX/TTTTTT|OAINIT
DELETE
- OAF
FILE CHAINING DISPLAY
- OAHINIT INITIALIZING THE
OAH UTILITY AND MESSAGE TABLES
OAHREF
DISPLAY HELP-ENTRY-TABLE PROGRAM REFERENCE
OAH@
- OAI/Z1 GIVE
BASIC INFORMATION ABOUT FILE STRUCTURE Z1 FILE
- OAI/ZY/ORDC5 ORDINAL 5 OF FILE STRUCTURE ZY
X10 HEXA 10
- OAI/Z1/OEDC2/PARTITN3 ORDINAL 2 OF THE 3RD PARTION OF Z1 FILES
- OAI/Z1/CREATE CREATE EMPTY POOL SUBFILE ( NO RECOUP PROTECTION,NO
RELEASE )
OAI/Z1/CREATE/PATHn/ALG-xxx
- OAI/Z1/RELEASE/PATHn/ALG-xx RMOVING DETAIL FROM INDEX STRUCTURE
- OA*
DISPLAYS THE LOGICAL RECORDS IN THE SELECTED FILE
- OAA3/80|THISISTEXT ADD HEX AND CHAR
- OAA3/0102030405060708 ADD TO LINE NO 3
- OAA/0102030405060708 ADD TO NEXT LINE
- OAX/4-6 DELETES 4-6
- OAI/DBTAB 모든TABLE 을 보여줌
- OAI/DBTAB/TR01BA DBDEF FILE 을 봄
- ZUDFM OAI/ZY 여기서 DFM 이란 DATA FACILITY
MAINTENANCE 임
- OA/FFFFFFFF FFFFFFFF 는 FILE ADDRESS
임
- OAI/CR19BA/ALG-0256 0256 : ORD NO
- OAI/DBTAB/TR01BA DISPLAY TR01BA
- OAI
INITIALIZATION OF OA-WORKFILE
OAI/DBTAB/INIT
- OAI/DBTAB CENTRAL DESCRIPTOR MAINTENANCE
- OAI/FILE DSECT LABEL DISPLAY
OAI/FILE/CR13OZ
- OAINIT INITIALIZE
TRADIT AND TPFDB FILES
- OAL
OA MODIFICATION LOG
- OAM
TPFDB MEASUREMENT
OAM/GRAPH OAM/START OAM/STOP OAM/STA/6E
6E: ID
- OAP
COMPRESS CURRENT FILE (REMOVE UNUSED SPACE IN A SUBFILE)
- OAR
REPLACE EXISTING LREC
OAR4/LBL-STC-|FL
---
Field name
- OAS
DISPLAY PARAM-/DATA-BLOCK IN SSTR
POAS/W POAS/D
- OAT
READ AND STORE MACRO LABEL SET
OAT*LOG OAT/MLS
(MLS:macro label set tape )
- OAX
DELETE LREC
OAX/4-6
DELETES 4-6
OAX/ALL
(Be cautious !!!)
- OAZ
DISPLAY TOD-CLOCK CONVERSION
OAZ/9D0000000
OAS DISPLAY PARAM-/DATA-BLOCK
IN SSTR
---------------------------------------------------------------
DESCRIPTION: ALLOWS A DISPLAY DURING
STEP BY STEP TRACE OF
USER/APPLICATION ORIENTED INFORMATION FROM
SW00SR AND DATA BLOCK WHICH ARE ATTACHED
TO THE STOPPED ECB.
RESTRICTION: ENTRY MUST BE INTERCEPTED
BY SSTR.
REFERENCE: SEE UFB DOCUMENTATION
ENTRIES:
OAS
DISPLAY OF ACTUALLY OPENED FILES
FURTHER OAS-ENTRIES
OAS/W OR D DISPLAY WORK-BLOCK
OR DATA-BLOCK
SW00 BASE IN SW00SWB
OAS/W OR D/X SELECTION X 1 TO 999 WITH
OPTION W-SW00- OR D-DATABLOCK-
OAS/W OR D/R3 DISPLAY WORK-BLOCK
OR DATA-BLOCK
BASE OF SW00 IN R3
OAS/W/2/OPS
OAS/D/2/LBL
OAS/W OR D/EBW...
DISPLAY WORK-BLOCK OR DATA-BLOCK
IMPORTANT NOTES
===============
INSTRUCTION FORMAT
- GENERAL DETAILS
. The command is real time macro Register #14 , #15 not preserved.
. TPFDF uses register #3 itself(
Base register for work block)
This register is not used by the application programmer.
When using a TPFDF file is to issue the OPEN command .
This sets up and initialises a workblock(SW00SR)
detatched from level D Which
is used by all following TPFDF commands
for that file(The first DBOPN of an ECB creates the
DBIFB 4K BLOCK ).
. Column 10 is Commands . 16th Column Must start Continuations.
. REF=TPFDF uses ECB levels from 9 to C
for data retrieval.
- KEY
. Each Logical record contains an LRECL ID which is used as a
primary search key
Lrecl ID : x'00' - x'0F' And x'F0' -
x'EF' RESERVED FOR TPFDF SYSTEM
. Up to Six keys can be used to search for LRECL.
. &SW00EOR : END ORDINAL -1 = END OF
FACE in case of partitioning this field
has to be set to the end ordinal of the first partition
. &SW00ILV : Highest Interleaved Value
. &SW00OP1 : BIT0 Backward chaining supported
1 Automatic chain correction
2 Add current (discard of old logical records)
3
4 Checkpoint after unique key command
5 overflow block grows from prime size to overflow size as needed
6 Pack subfile in any case
7 Maintain file sequence update counter
&SW00OP2 SETC '00000110' OPT
BYTE2 P: FIWHC, C: FINWC [ DB010C
0
1 pack subfile to new file address
2 restore to new file address
3 Tape load to new file address
4 Retrieval method for prime block (FIWHC)
5
overflow block (FINWC)
6 Issue system error (DB010C) if subfile was modified
Without a HOLD specification at DBOPN time
&SW00OP3 : 0 EXTENDEX LOGICAL RECORDS
3 FILE IS FIXED DETAIL RECORD FILE (TPFDF INDEX SUPPORT)
4 CHECK POINT WHEN INDEX LOGICAL RECORD IS ADDED OR DELETED
- ALGORITHMS ( A : ALPHA
N: NUMERIC C:ALPHANUMERIC
S: ALPHANUMERIC AND SPECIAL CHARACTER . # $ * - / @
X: HEXA )
(): NO OF FILES
. Direct Translate
#TPFDB01 A
( 26 )
02
AA (676)
03
AAA (17576) ALG==C'ATL'
04
(1 Block)
05
06
C ( 36) ALG=EBW000
07
CC ( 1296)
08
CCC (46656)
0A
S (43)
0B
S (1849)
0D
xxxxxxxx fixed length Lrecls algorithms. Overflow use next ord no
.
Fast access algorithm . ( LRECNBR='00000007' )
??
#1 #2 ....... #nn
------ -----
------ -----
------ -----
.Distribution 파일 어드래스로 직접
찾음
05
XXXX 4 BYTES FIELD LIKE ADDRESS (pool file
address 로도사용가능)
0C
XX 2 BYTES FOR ORDINAL NUMBER (AWB NO 를 TOTAL 파일 갯수로나눔)
.Hashing
09
xxxxxxxx if Total no of files are 1000 then mod(999)
.
8 bytes will be hashed . (Index 로 사용가능)
만일 1000 개의 file (ordinal 999) 면 999 로 나눈
나머지임.
ALG==C'12345678'
0F
XXXXXXXXXX 8 Bytes are same as 09 and next two bytes
are used
for partion(airline code) PARTITION= or INTERLV=
We assume 4 defined partions and 3 blocks per partion
ALG=C'12345678AA' 이라면
C'AA' / 4 => => Remainder =Partion
( (C'1234' / #3 ) + (C'5678' /#3 )) /#3 = ORD#
. Index
FF
Index supported Detail Pool file Up to 255 char.
(ALG '0C' 로 INDEX 되어 있고 , ALG 에 KEY 값을 주면
TPFDF PGM 가 알아서 INDEX 를 읽고 POOL FILE 을 가고옴)
MACROS
======
DBADD Adds an Lrec to a file
DBADR Get file address
Allows the application to determine the ord # of file address of a
subfile based on the algorithm string.
DBCKP Writes open file to DASD
DBCLR Allows files open at EXIT
DBCLS Close one or more subfile
DBCPY Creates copy of open subfile
DBCRE Create a new ,empty subfile
DBDEL Delete LRECs
DBDIX Removes an LREC from an index
DBDSP Display and closes a subfile
DBFRL Migration tool
DBIDX Add LREC to an index
DBIFB Locates DBIFB for a file
DBKEY Sets up key information
DBMOD Indicates file was modified
DBMRG Merges two subfiles into
one
DBOPN Opens subfile & creates
DBIFB
DBRED Reads an LREC
DBREP Replaces an LREC
DBRET BOOK MARK function
DBRST Restores a subfile from a
copy
DBSRT Creates a sorted subfile
DBTLD After TAPEREAD ,loads to
DASD
DBTLD REF=GR3NSR,ERROR=UFDBE3,CREATE
DBTLG Writes subfile to tape
DBTRD Reads subfile into Memory
DBTRD REF=GR3NSR,REG=R4,ERROR=UFDBE2,TAPE=EBW013 (EX UFDB)
DBUKY Creates a unique key value.
sample programs and macros
DBOPN
--------
|
DBCRE |
------ |
|
|
DBADD,DBDEL,DBRED,DBMER,DBREP,DBSRT
------------------------------------
|
|
DBCLS
-------------
The Application has to assure that changes accross multiful files
reach the actual file ,and that if one file is updated,all the affected
files are updated.
- DBDEF TABLE DEFINITION : UF1A ~ UF99
- GENERAL ROUTINES : UFA*
- FAST LINKAGE FOR THE BASIC TPFDF COMMANDS USED IN APPLICATION PROGRAMS : UF0*
Pack database
Validates data structures for broken chains,references,chaining factors.
Support user written exit code
Added functional messages