Google
 

Trailing-Edge - PDP-10 Archives - TRAFFIC-20_V4_840514 - traffic-demonstrations/dem4.rec
There are no other files named dem4.rec in the archive.
************************************************************
*
* RECORD DESCRIPTION OF FORM:  DEM4
*
* SPECIFICATION FILE:          DEM4.FRM.23
*
* DATE OF COMPILATION:         30-Apr-84 10:38:48
*
************************************************************
01 FM-DEM4   USAGE IS DISPLAY-7.
    10  FILL41
			PICTURE X(65).
    10  FILL42
			PICTURE X(65).
    10  FILL43
			PICTURE X(65).
    10  FILL44
			PICTURE X(65).
    10  FILL45
			PICTURE X(65).
    10  FILL46
			PICTURE X(20).
    10  FILL47
			PICTURE X(10).
    10  FILL48
			PICTURE X(65).
    10  FILL49
			PICTURE X(66).
    10  FILL410
			PICTURE X(65).
    10  FILL411
			PICTURE X(65).
    10  MULTIPLE-RECORD  OCCURS 50 TIMES.
      12  DATE4
			PICTURE 9(6).
      12  QTY4
			PICTURE S9(2).
      12  PARTNO4
			PICTURE X(12).
      12  DESC4
			PICTURE X(20).
      12  COST4
			PICTURE S9(4)V9(2).
      12  INDX4
			PICTURE S9(2).
    10  QGO4
			PICTURE A(1).

************************************************************
*
* FIELD NUMBER TABLE OF FORM:  DEM4
*
* SPECIFICATION FILE:          DEM4.FRM.23
*
* DATE OF COMPILATION:         30-Apr-84 10:38:48
*
************************************************************
01 FN-DEM4   USAGE IS COMPUTATIONAL.
    10 FN-FILL41
		PICTURE S9(6) VALUE IS 1.
    10 FN-FILL42
		PICTURE S9(6) VALUE IS 2.
    10 FN-FILL43
		PICTURE S9(6) VALUE IS 3.
    10 FN-FILL44
		PICTURE S9(6) VALUE IS 4.
    10 FN-FILL45
		PICTURE S9(6) VALUE IS 5.
    10 FN-FILL46
		PICTURE S9(6) VALUE IS 6.
    10 FN-FILL47
		PICTURE S9(6) VALUE IS 7.
    10 FN-FILL48
		PICTURE S9(6) VALUE IS 8.
    10 FN-FILL49
		PICTURE S9(6) VALUE IS 9.
    10 FN-FILL410
		PICTURE S9(6) VALUE IS 10.
    10 FN-FILL411
		PICTURE S9(6) VALUE IS 11.
    10 FN-DATE4
		PICTURE S9(6) VALUE IS 12.
    10 FN-QTY4
		PICTURE S9(6) VALUE IS 13.
    10 FN-PARTNO4
		PICTURE S9(6) VALUE IS 14.
    10 FN-DESC4
		PICTURE S9(6) VALUE IS 15.
    10 FN-COST4
		PICTURE S9(6) VALUE IS 16.
    10 FN-INDX4
		PICTURE S9(6) VALUE IS 17.
    10 FN-QGO4
		PICTURE S9(6) VALUE IS 18.