Google
 

Trailing-Edge - PDP-10 Archives - BB-5372D-BM - traffic/demonstration/myform.form-desc
There is 1 other file named myform.form-desc in the archive. Click here to see a list.
************************************************************
* RECORD DESCRIPTION OF FORM MYFORM
************************************************************

	10  CN-PROT
			PICTURE X(16) DISPLAY-7.
	10  CN-UNPROT
			PICTURE S9(7) DISPLAY-7.
	10  CNA-PROT
			PICTURE X(16) DISPLAY-7.
	10  CNA-UNPROT
			PICTURE X(25) DISPLAY-7.
	10  SA-PROT
			PICTURE X(16) DISPLAY-7.
	10  SA-UNPROT
			PICTURE X(25) DISPLAY-7.
	10  C-PROT
			PICTURE X(4) DISPLAY-7.
	10  C-UNPROT
			PICTURE X(12) DISPLAY-7.
	10  S-PROT
			PICTURE X(5) DISPLAY-7.
	10  S-UNPROT
			PICTURE A(2) DISPLAY-7.
	10  Z-PROT
			PICTURE X(3) DISPLAY-7.
	10  Z-UNPROT
			PICTURE S9(5) DISPLAY-7.
	10  Q-PROT
			PICTURE X(40) DISPLAY-7.
	10  Q-UNPROT
			PICTURE A(1) DISPLAY-7.


************************************************************
* FIELD NUMBER TABLE OF FORM MYFORM
************************************************************
01 FN-MYFORM COMPUTATIONAL.
    10 FN-CN-PROT
			PICTURE S9(6) VALUE IS 1.
    10 FN-CN-UNPROT
			PICTURE S9(6) VALUE IS 2.
    10 FN-CNA-PROT
			PICTURE S9(6) VALUE IS 3.
    10 FN-CNA-UNPROT
			PICTURE S9(6) VALUE IS 4.
    10 FN-SA-PROT
			PICTURE S9(6) VALUE IS 5.
    10 FN-SA-UNPROT
			PICTURE S9(6) VALUE IS 6.
    10 FN-C-PROT
			PICTURE S9(6) VALUE IS 7.
    10 FN-C-UNPROT
			PICTURE S9(6) VALUE IS 8.
    10 FN-S-PROT
			PICTURE S9(6) VALUE IS 9.
    10 FN-S-UNPROT
			PICTURE S9(6) VALUE IS 10.
    10 FN-Z-PROT
			PICTURE S9(6) VALUE IS 11.
    10 FN-Z-UNPROT
			PICTURE S9(6) VALUE IS 12.
    10 FN-Q-PROT
			PICTURE S9(6) VALUE IS 13.
    10 FN-Q-UNPROT
			PICTURE S9(6) VALUE IS 14.