Google
 

Trailing-Edge - PDP-10 Archives - TRAFFIC-20_V4_840514 - traffic-demonstrations/dem6.rec
There are no other files named dem6.rec in the archive.
************************************************************
*
* RECORD DESCRIPTION OF FORM:  DEM6
*
* SPECIFICATION FILE:          DEM6.FRM.1
*
* DATE OF COMPILATION:         30-Apr-84 10:38:53
*
************************************************************
01 FM-DEM6   USAGE IS DISPLAY-7.
    10  FIL61
			PICTURE X(64).
    10  FIL62
			PICTURE X(64).
    10  FIL63
			PICTURE X(64).
    10  FIL64
			PICTURE X(64).
    10  FIL65
			PICTURE X(64).
    10  QSEE6
			PICTURE A(1).
    10  FIL66
			PICTURE X(19).
    10  ONAME6
			PICTURE A(12).
    10  TIME6
			PICTURE S9(4).
    10  FIL67
			PICTURE X(72).
    10  FIL68
			PICTURE X(72).
    10  FIL610
			PICTURE X(15).
    10  FIL611
			PICTURE X(18).
    10  PNAME
			PICTURE A(20).
    10  PADD1
			PICTURE X(20).
    10  PADD2
			PICTURE X(20).
    10  PADD3
			PICTURE X(20).
    10  PPHONE
			PICTURE X(20).
    10  FIL620
			PICTURE X(19).
    10  FIL621
			PICTURE X(18).
    10  KNAME
			PICTURE A(20).
    10  KADD1
			PICTURE X(20).
    10  KADD2
			PICTURE X(20).
    10  KADD3
			PICTURE X(20).
    10  KPHONE
			PICTURE X(20).
    10  KINFO
			PICTURE A(1).
    10  FIL630
			PICTURE X(15).
    10  FIL631
			PICTURE X(17).
    10  XRAY
			PICTURE A(1).
    10  WARD
			PICTURE X(20).
    10  DOCTOR
			PICTURE A(20).
    10  QAGEN6
			PICTURE A(1).

************************************************************
*
* FIELD NUMBER TABLE OF FORM:  DEM6
*
* SPECIFICATION FILE:          DEM6.FRM.1
*
* DATE OF COMPILATION:         30-Apr-84 10:38:53
*
************************************************************
01 FN-DEM6   USAGE IS COMPUTATIONAL.
    10 FN-FIL61
		PICTURE S9(6) VALUE IS 1.
    10 FN-FIL62
		PICTURE S9(6) VALUE IS 2.
    10 FN-FIL63
		PICTURE S9(6) VALUE IS 3.
    10 FN-FIL64
		PICTURE S9(6) VALUE IS 4.
    10 FN-FIL65
		PICTURE S9(6) VALUE IS 5.
    10 FN-QSEE6
		PICTURE S9(6) VALUE IS 6.
    10 FN-FIL66
		PICTURE S9(6) VALUE IS 7.
    10 FN-ONAME6
		PICTURE S9(6) VALUE IS 8.
    10 FN-TIME6
		PICTURE S9(6) VALUE IS 9.
    10 FN-FIL67
		PICTURE S9(6) VALUE IS 10.
    10 FN-FIL68
		PICTURE S9(6) VALUE IS 11.
    10 FN-FIL610
		PICTURE S9(6) VALUE IS 12.
    10 FN-FIL611
		PICTURE S9(6) VALUE IS 13.
    10 FN-PNAME
		PICTURE S9(6) VALUE IS 14.
    10 FN-PADD1
		PICTURE S9(6) VALUE IS 15.
    10 FN-PADD2
		PICTURE S9(6) VALUE IS 16.
    10 FN-PADD3
		PICTURE S9(6) VALUE IS 17.
    10 FN-PPHONE
		PICTURE S9(6) VALUE IS 18.
    10 FN-FIL620
		PICTURE S9(6) VALUE IS 19.
    10 FN-FIL621
		PICTURE S9(6) VALUE IS 20.
    10 FN-KNAME
		PICTURE S9(6) VALUE IS 21.
    10 FN-KADD1
		PICTURE S9(6) VALUE IS 22.
    10 FN-KADD2
		PICTURE S9(6) VALUE IS 23.
    10 FN-KADD3
		PICTURE S9(6) VALUE IS 24.
    10 FN-KPHONE
		PICTURE S9(6) VALUE IS 25.
    10 FN-KINFO
		PICTURE S9(6) VALUE IS 26.
    10 FN-FIL630
		PICTURE S9(6) VALUE IS 27.
    10 FN-FIL631
		PICTURE S9(6) VALUE IS 28.
    10 FN-XRAY
		PICTURE S9(6) VALUE IS 29.
    10 FN-WARD
		PICTURE S9(6) VALUE IS 30.
    10 FN-DOCTOR
		PICTURE S9(6) VALUE IS 31.
    10 FN-QAGEN6
		PICTURE S9(6) VALUE IS 32.