DEFENSE INTELLIGENCE AGENCY INSTALLATIONS DATA FILE REPORT

• Document Type: CREST
• Collection: NGA Records (Formerly NIMA)
• Document Number (FOIA) /ESDN (CREST): CIA-RDP94T00858R000601130001-8
• Release Decision: RIPPUB
• Original Classification: U
• Document Page Count: 13
• Document Creation Date: December 28, 2016
• Document Release Date: March 6, 2008
• Sequence Number: 1
• Publication Date: April 13, 1983
• Content Type: REPORT

Approved For Release 2008/03/06: CIA-RDP94T00858R000601130001-8
A -q USL
NDS OPERATIONS PROCEDURE MANUAL APPLICATIONS SOFTWARE
NO. P-DO02 13 April 1983
DEFENSE INTELLIGENCE AGENCY
INSTALLATIONS DATA FILE REPORT
SYMBOLIC TITLE: DIAIDF
PROGRAMMER : STAT
Approved For Release 2008/03/06: CIA-RDP94T00858R000601130001-8
 Approved For Release 2008/03/06: CIA-RDP94T00858R000601130001-8
Program DIAIDF
Date 10 December 1981
This operations manual has been reviewed and approved by the
following persons:
STAT
8 (date)
Approved For Release 2008/03/06: CIA-RDP94T00858R000601130001-8
 Approved For Release 2008/03/06: CIA-RDP94T00858R000601130001-8
Program DiAIDF
Date 10 December 1981
Page
SUMMARY
1
OPERATIONAL FLOW CHART
2
COMPILE RUNSTREAM
3
MAP RUNSTREAM
4
EXECUTION RUNSTREAM
5
MAGNETIC TAPE INPUT
6
HIGH-SPEED PRINTER OUTPUT
7
ON-LINE COMPUTER PROCESSING
8
EQUIPMENT REQUIREMENTS
8
NORMAL RUN INSTRUCTIONS
9
ABNORMAL RUN INSTRUCTIONS
10
111
(~i vr..i~1 LUAU ~.iV U ~~ISU ~G~1 V'VS co Lc ~,_U
Approved For Release 2008/03/06: CIA-RDP94T00858R000601130001-8
 Approved For Release 2008/03/06: CIA-RDP94T00858R000601130001-8
- ,IDF
Date 10 December 1981
SUMMARY
The DIAIDF is a COBOL program which reads DIA tapes on EURASIA and Middle
East. The program then produces three reports which are used in IEG/O&RD.
This program then uses the WAC-BE number from the tape and trys to retrieve
the same WAC-BE from the IDF. If the record exists in our IDF file, both the
DIA and IDF records are written to the matched changes report. If the record
does not exist, the action code in the DIA record is checked for an "A", "C", or
"D". If the code is an "A" or "C" the DIA record is written to the Unmatched
Additions and Changes Report. If the code is a "D" the DIA record is written to
the Unmatched Deletes.
This program uses the COBOL Report Writer to format the three reports.
The report is written on 1471 paper.
Approved For Release 2008/03/06: CIA-RDP94T00858R000601130001-8 j
 Approved For Release 2008/03/06: CIA-RDP94T00858R000601130001-8
Program DIAIDF
Date 10 December 1981
OPERATIONAL FLOW CHART
DIAIDF
REPORT
UNMATCHED
ADDITIONS
D CHANGE
2
Cis C Mv
Approved For Release 2008/03/06: CIA-RDP94T00858R000601130001-8
 Approved For Release 2008/03/06: CIA-RDP94T00858R000601130001-8
erogram DIAIDF
Date 10 December 1981
xOT*W5RUN(1 1. PI AIDr C^M P
PU 9/ CA TP w99ooaaa
Yv:,D PRIM
z a. ADO k0T*w1P.!JN.DTAIOcPUSES
---u.. --'t6SG,T TPCS
.
HERS TPca.
h arEL.ETE?C x0 i*C-.(,.1AIE'F .
tJSE C-DI4IDc.,X0T*C-DTaTOc.
ASG,LIP )(0T*C-GIAIOr' .
9 -?PRKPT PPIfTS/C-DIAIOc
__..._..._,-e.. -- AS6+A SO LP CErILE.
11 FICOPY,S 5OURCFcILEDIAIC)c,T~=S.S,!UP CE
12 @FR.EE,P S0UPCEcICE.
17.... St3 A ki S*PRODSCHEMA.
14 11OM LP,7E TPrS.EC'URCE? PGS. CUP[E
a.ACOP,ES TPca.50lJRCE,T~'c .!iI4In~
c*PROGSCHEWA
] /, u;F i7Er rP 1' C. I'r iAS C,AX PF:LrILE.
1R nCOPY,R IFcg.,PEL.FTLE.__.
?ACK r'ELcILE.
PF : E F . P F EL cIL E.
@RRKPT PRTNTc
n'ED.?R X0T*C-CIAIC .
-- - ---- ----
Fr EEO' A
c~Yf ?O PPIf:T5
rt1~IA
Approved For Release 2008/03/06: CIA-RDP94T00858R000601130001-8 i r
 Approved For Release 2008/03/06: CIA-RDP94T00858R000601130001-8
',rogram DIAIDF
Date 10 December 1981
OT'
P f 1 (
7
1 i. f'I AT Dm AP
FU! DIuICc?c:
15YM D PP INT
F,ASG,T----T0cS.
nfioc TPca.
@,nF:LETE.C XOT*M-OI4ID
~t!cc M-['I~Ilic. ?XOT*P -DIAIrc
n145G?UF YOT*M-DIAIDc.
1.0.
PPRIt FT FPINTai- UTAIC:c
1ASG,A CON*PSPEL.
1 1
SGA A (t.! Dc. * R- S U.B .
12.
13
~~'t.P.IS TPEQ.DIAID
14,
Irv PELrILc.OI6Inc,
15
IN RFLcILE.CSLOPKnIAIC:c
.19 I N CCM*PSREL PEA.OTP
I N %4OS*O.01,R.MT.L Ita.KERA
ac RFF,P
21 n^FRFE.P N'Cr-*LF'P"'T.
22 1FREf_ COM*PSREL.
'23 n"3 SC+AX A`.ScIL E.
24 COPY. A T E
.3fl "c0,P x0T*M-01A TOC.
E "` fl
25 i,AACk AE.'- TILE.
2!+ F,FRE F,R ASSrILE-
2 7 rs~'KPT PRI^.TQ
2P. al F IN
Approved For Release 2008/03/06: CIA-RDP94T00858R000601130001-8
 Approved For Release 2008/03/06: CIA-RDP94T00858R000601130001-8
l 13r MILL' ?rograill DIAIDF
Date 10 December 1981
xOT*k?4LN(11 G161Dg: /x^,T
r`IAI11I11)6q/CtTCox!ll
PflELETE?C XCT*PFPTa.
P)EL=TF9C xnT*P -- INT%.
o^FREER XCT'-a44FS.
PT ELETE?C XOT*P r'T'?
?ASG, CP XOT*PPINT i .
@ASG.CP XOT*PRIP'T?.
RASG?CP XOTPPINT?.
se, AX XO1*6IZAPS.
aCCPV.A X0T*w54185.C?IA1"c,T,c
@ASG.T XOT*EIA-FIL.E.,UEl A1F1
12 XT DTAICIr
1 PP RFf xOT*PPIN T1,
1D nFREF XOT*PRINT2.
1 oFREE XOT*PPINT?7.
,! @FYN XCT*PRTNT1.
17 ?SYM XOT*PPINT2.
IR ?cYP XOT*PRINT'x.
Q nn SYMIPP1h1IT
2^ aP I N,
Approved For Release 2008/03/06: CIA-RDP94T00858R000601130001-8
 . Approved For Release 2008/03/06: CIA-RDP94T00858R000601130001-8
Program DIAIDF
Date 10 December 1981
MAGNETIC TAPE INPUT
Contents and Description of Tape Data
Input to this program is the Match/Mismatch.:tapes that are received
from DIA.
Type of Unit (7 Track or 9 Track)
Standard Tape Label: EURASIAN TDI
(to be inserted by programmer)
Label Block File Name:
Mode: 800
Code: Packed ASCII
Record and Block Size: 235 characters per record, 1 record per block
File Sequence:
Source Program:
Source Component:
Disposition: Return tape to Tape Library.
Restrictions:
Quantity :
Approved For Release 2008/03/06: CIA-RDP94T00858R000601130001-8
 Approved For Release 2008/03/06: CIA-RDP94T00858R000601130001-8
Program DIAIDF
Date 10 December 1981
Identification: DIAIDF
Format:
Type of Form: 1471-1 pt.
Disposition: Send listing to Operations & Resources Division (O&RD)
Output consists of three reports:
REPORT #1 - Match Changes
REPORT #2 - Unmatched Additions and Changes
REPORT #3 - Unmatched Deletes
AD W. .Gr~.4ki'QL WE UA lSU
Approved For Release 2008/03/06: CIA-RDP94T00858R000601130001-8
 Approved For Release 2008/03/06: CIA-RDP94T00858R000601130001_8_DF
Date 10 December 1981
ON-LINE COMPUTER PROCESSING
EQUIPMENT REQUIREMENTS
Computer: UNIVAC 1100
Schema Used:
Storage:
Core Required -
I Bank -
D Bank -
Peripheral Devices: UNISERVO - 9-track
Restrictions:
Files Accessed:
Files Created/Deleted:
File Size:
Approximate Number of Accesses:
8
Approved For Release 2008/03/06: CIA-RDP94T00858R000601130001-8
 Approved For Release 2008/03/06: CIA-RDP94T00858R000601130001-8
Program DIAIDF
Date 10 December 1981
NORMAL RUN INSTRUCTIONS
The operator should start the following runstream.from the
console.
ST DIAIDF or
ST XOT*P$RUN.DIAIDF/XQT
Message
None
Cause Operator Action
Approved For Release 2008/03/06: CIA-RDP94T00858R000601130001-8
 Approved For Release 2008/03/06: CIA-RDP94T00858R000601130001-8
Program DIAIDF
Date 10 December 1981
ABNORMAL RUN INSTRUCTIONS
Messages:
Message
Cause
Operator Action
NO RECORDS IN DIA-FILE
BAD OR WRONG TAPE
GET THE RIGHT OR A GOOD
TAPE
NO MATCH ON ACTION CODE
TAPE HAD UNEXPECTED
CALL TO ATTENTION OF THE
DATA
REQUESTOR
ERROR STATUS
DMS ERROR
0313 or 0307 CALL PB/DBS
0313 or 0307 CALL PB/DBS
10
Approved For Release 2008/03/06: CIA-RDP94T00858R000601130001-8 I I