*/*-------------------------------------------------------------------+
*|              Copyright (c) 1995, SAS Institute Inc.                |
*|                Unpublished - All Rights Reserved                   |
*|                     S A S / C   S A M P L E                        |
*|                                                                    |
*|                                                                    |
*|        NAME: SASCAMA                                               |
*|    LANGUAGE: Assembler BMS Map (CICS)                              |
*|     PURPOSE: Traditional CICS FILEA sample program used in         |
*|                Appendix 1, Second Edition, of the SAS/C CICS User's|
*|                Guide.  See this appendix for a more detailed       |
*|                explanation of the SASCALL, SASCMNU, SASCBRW samples|
*|                as well as the SASCAMA, SASCAMB, and SASCAMC BMS    |
*|                maps.                                               |
*|  MVS -                                                             |
*|     Assemble/DSECT2C: Assemble the map and then use DSECT2C to     |
*|                create a C header file which defines the map by     |
*|                submitting prefix.SAMPLE.AUX(SASCAMA) where "prefix"|
*|                is the installation defined high-level qualifier for|
*|                the SAS/C product.                                  |
*|     EXECUTE: See Appendix 1, Second Edition, of the SAS/C CICS     |
*|                User's Guide for additional information.  Use the   |
*|                sample PPT input (prefix.SAMPLE.AUX(SASCTBLS) to    |
*|                define the resources to CICS.                       |
*+-------------------------------------------------------------------*/
         TITLE 'FILEA - MAP FOR OPERATOR INSTRUCTIONS - SAS/C'
MAPSETA  DFHMSD TYPE=&SYSPARM,MODE=INOUT,CTRL=(FREEKB,FRSET),          *
               LANG=ASM,TIOAPFX=YES,EXTATT=MAPONLY,COLOR=BLUE
SASCAGA  DFHMDI SIZE=(12,40)
         DFHMDF POS=(1,10),LENGTH=21,INITIAL='OPERATOR INSTRUCTIONS',  *
               HILIGHT=UNDERLINE
         DFHMDF POS=(3,1),LENGTH=29,INITIAL='OPERATOR INSTR - ENTER SMN*
               U'
         DFHMDF POS=(4,1),LENGTH=38,INITIAL='FILE INQUIRY   - ENTER SIN*
               Q AND NUMBER'
         DFHMDF POS=(5,1),LENGTH=38,INITIAL='FILE BROWSE    - ENTER SBR*
               W AND NUMBER'
         DFHMDF POS=(6,1),LENGTH=38,INITIAL='FILE ADD       - ENTER SAD*
               D AND NUMBER'
         DFHMDF POS=(7,1),LENGTH=38,INITIAL='FILE UPDATE    - ENTER SUP*
               D AND NUMBER'
MSG      DFHMDF POS=(11,1),LENGTH=39,INITIAL='PRESS CLEAR TO EXIT'
         DFHMDF POS=(12,1),LENGTH=18,INITIAL='ENTER TRANSACTION:'
         DFHMDF POS=(12,20),LENGTH=4,ATTRB=IC,COLOR=GREEN,             *
               HILIGHT=REVERSE
         DFHMDF POS=(12,25),LENGTH=6,INITIAL='NUMBER'
KEY      DFHMDF POS=(12,32),LENGTH=6,ATTRB=NUM,COLOR=GREEN,            *
               HILIGHT=REVERSE
         DFHMDF POS=(12,39),LENGTH=1
         DFHMSD TYPE=FINAL
         END