NEA-0578 KEMA.

1. NAME OR DESIGNATION OF PROGRAM:  KEMA.

3. NATURE OF PHYSICAL PROBLEM SOLVED

Deletion, insertion and exchange  of data records in the data file 'KEDAK'. Printout of a list of contents of the KEDAK library. Conversion of the KEDAK library from  direct access form into card image form and vice versa.

4. METHOD OF SOLUTION

For the universal exchange of the KEDAK library  it is necessary to transform the library from direct access form into a sequential form. This sequential form will be exchanged and retransformed into direct access form.

6. TYPICAL RUNNING TIME

For a deletion, insertion and exchange of data approximately 50 seconds CPU time of an IBM 168 computer is used. 7  minutes is used to transform the library into direct access form.

7. UNUSUAL FEATURES OF THE PROGRAM

KEMA is a service and handling code for the Karlsruhe Nuclear Data library KEDAK.

8. RELATED OR AUXILIARY PROGRAMS: RELATED AND AUXILIARY PROGRAMS

- B. Krieg:
  Handling and Service Programs for the Karlsruhe Nuclear Data File
  KEDAK, Part I, Management and Retrieval Programs
  KFK 1725 (June 1973).
- B. Krieg:
  The KEDAK Program Compendium, Part II, KEDAK Basic Management
  KFK 2387/II (January 1977).

11. MACHINE REQUIREMENTS

The machine instructions of the programme and  the buffers need 600-k bytes storage if an overlay structure is used. For storing the KEDAK library in direct access form a disk storage unit is necessary.

13. OPERATING SYSTEM OR MONITOR UNDER WHICH PROGRAM IS EXECUTED:  OS/VS release 3.7.

14. ANY OTHER PROGRAMMING OR OPERATING INFORMATION OR RESTRICTIONS

The ASSEMBLER routine 'DATUM' gives the day and the time of the calculation and 'DDTEST' checks whether all DD-cards needed are specified in the job.
With the ASSEMBLER routines 'DINF' and 'DEFI' it is possible to  use a data set in direct access form (in this special case the KEDAK library) with variable length.
The length is taken from the space parameter in the DD-card corresponding to the direct access library to be used and does not depend on the program.  For example:
//G.FT01F001 DD UNIT = 2314, VOL=SER=....,DSN=KEDAK,
// DISP=SHR,SPACE=(3520,3000)
If DINF and DEFI do not run on your computer the statements:
CALL DINF(.....)
NSZ = NSZ/4
CALL DEFI(.....)
may be replaced by:
DEFINE FILE 1(3000,880,U,K8) in all KEMA modules reading or  writing a direct access library.
If the module 01750 for updating the KEDAK library is used, a  DD-card for unit 3 must be added.
Storage unit 3 contains all ZZSTATUS records for one material.
ZZSTATUS is a new data type on KEDAK which is created automati-  cally by the KEMA module 01750.
ZZSTATUS contains information about the kind of data changes per-  formed on KEDAK.
Numerical name : 14512
Further   name :

Arguments    : 1. Date of the change in the format YYMMDD
                2. Time of the change
Functional   : 1. Kind of change (ADD,DPS or DPA)
values 2.,3. Data type to be changed in alphanumerical form                 4. Further name of the data type to be changed
                5. First energy value to be changed.
                6. Last  energy value to be changed.
                7. Number of energy values to be changed

15. NAME AND ESTABLISHMENT OF AUTHOR

    B. Krieg
    Institut fuer Neutronenphysik und Reaktortechnik
    Kernforschungszentrum
    Postfach 36 40
    D-7500 Karlsruhe 1
    The Federal Republic of Germany

File name	File description	Records
NEA0578_01.001	INFORMATION FILE	8
NEA0578_01.002	DATUM ROUTINE	125
NEA0578_01.003	DINF ROUTINE	29
NEA0578_01.004	DEFI ROUTINE	108
NEA0578_01.005	DDTEST ROUTINE	111
NEA0578_01.006	SOURCE (F4,EBCDIC)	6121
NEA0578_01.007	JCL CARDS	121
NEA0578_01.008	OVERLAY CARDS	33
NEA0578_01.009	SAMPLE INPUT	52
NEA0578_01.010	SAMPLE OUTPUT	3304