*DECK     NMI=LDM 
          IDENT  MSGS 
          COMMENT MSGS - L-DISPLAY MESSAGE BLOCKS 
*CALL     NMI=MAC 
          LIST   *
  
**        MSGS
*         A COLLECTION OF L-DISPLAY AND TERMINAL MESSAGE
*         FORMATS AND SKELETONS 
* 
  
  
          USE    /TBLADR/ 
          VFD    30/OPTIONS,30/.OPTIONS-OPTIONS 
          VFD    30/OPTION2,30/.OPTION2-OPTION2 
          VFD    30/CBUFR1,30/.CBUFR1-CBUFR1
          VFD    30/CBUFR1,30/.CBUFR1-CBUFR1
          VFD    30/CBUFR1,30/.CBUFR1-CBUFR1
          VFD    30/ZBUFR1,30/.ZBUFR1-ZBUFR1
          VFD    60/0 
          USE 
  
          EJECT 
  
OPTIONS   EQU    *
          DISPLAY  OPTION,INFORM,(OPTION SELECTION) 
          LINE   S,N,C,,(    )
          LINE   S,N,C,,(        ENTER OPTION --       )
          LINE   S,N,C,,(    )
          LINE   S,N,C,,(    1.  SHOW OPTIONS         4.  SAVE JOB     )
          LINE   S,N,C,,(    2.  SELECT JOB           5.  SUBMIT JOB   )
          LINE   S,N,C,,(    3.  MODIFY JOB CCL       6.  TERMINATE    )
          LINE   S,N,C,,(    )
          DISEND OPTION 
.OPTIONS  EQU    *-1
  
          SPACE  4,8
  
OPTION2   EQU    *
          DISPLAY  OPTN02,INFORM,(JOB SELECTION)
          SMALL  (    ) 
          SMALL  (    SELECT JOB/PARAM RECORD NAME-)
          SMALL  (    ) 
          SMALL  (01- .......             .......  )
          SMALL  (03-                              )
          DISEND   OPTN02 
.OPTION2  EQU    *-1
  
          SPACE  4,8
  
CBUFR1    EQU    *
          DISPLAY  CCBF01,INFORM,(    =CONTROL CARD BUFFER=)
          SMALL  (CC--00000000011111111112222222222333333333344444444445
,5555555556)
          SMALL  (CC--12345678901234567890123456789012345678901234567895
,1234567890)
          DUP    18,1 
          SMALL  (CC--
,          )
          DISEND CCBF01 
.CBUFR1   EQU    *-1
  
          SPACE  4,8
  
ZBUFR1    EQU    *
          DISPLAY  ZZBF01,INFORM,( )
          DISEND   ZZBF01 
.ZBUFR1   EQU    *-1
  
          END