Figure 1: DDS display file code

CF03(03 'EXIT')     

                            CF12(12 'RETURN')   

R SALEFMT

                        2  5'Order date:'       

  ORDERDATE      6  0B  2 25EDTCDE(Y) COMP(NE 0)

                        4  5'Name:'             

  NAME          30   B  4 25CHECK(LC) CHECK(ME) 

                        6  5'Age:'              

  AGE            2  0B  6 25COMP(GE 21) CHECK(ME

                        8  5'Product:'          

  PROD           1  0B  8 25VALUES(1 3 5 7)     

                       10  5'Quantity:'         

  QTY            4  0B 10 25EDTCDE(Z) RANGE(1 50)

                       12  5'Price:'            

  PRICE          7  2B 12 25EDTCDE(4 $) RANGE(1001 2098)          

                       14  5'F03=EXIT'  

                       14 25'F12=RETURN'