*/*-------------------------------------------------------------------+
*|              Copyright (c) 1995, SAS Institute Inc.                |
*|                Unpublished - All Rights Reserved                   |
*|                     S A S / C   S A M P L E                        |
*|                                                                    |
*|                                                                    |
*|        NAME: SASCAMC                                               |
*|    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 which defines the map by          |
*|                submitting prefix.SAMPLE.AUX(SASCAMC) 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 FILE BROWSE - SAS/C'
MAPSETC  DFHMSD TYPE=&SYSPARM,MODE=INOUT,CTRL=(FREEKB,FRSET),          *
               LANG=ASM,TIOAPFX=YES,EXTATT=MAPONLY
SASCAGC  DFHMDI SIZE=(12,40)
DIR      DFHMDF POS=(1,1),LENGTH=1,ATTRB=IC
         DFHMDF POS=(1,3),LENGTH=1
         DFHMDF POS=(1,15),LENGTH=11,INITIAL='FILE BROWSE',            *
               COLOR=BLUE,HILIGHT=UNDERLINE
         DFHMDF POS=(3,1),LENGTH=6,INITIAL='NUMBER',COLOR=BLUE
         DFHMDF POS=(3,17),LENGTH=4,INITIAL='NAME',COLOR=BLUE
         DFHMDF POS=(3,32),LENGTH=6,INITIAL='AMOUNT',COLOR=BLUE
NUMBER1  DFHMDF POS=(4,1),LENGTH=6
NAME1    DFHMDF POS=(4,9),LENGTH=20
AMOUNT1  DFHMDF POS=(4,30),LENGTH=8
NUMBER2  DFHMDF POS=(5,1),LENGTH=6
NAME2    DFHMDF POS=(5,9),LENGTH=20
AMOUNT2  DFHMDF POS=(5,30),LENGTH=8
NUMBER3  DFHMDF POS=(6,1),LENGTH=6
NAME3    DFHMDF POS=(6,9),LENGTH=20
AMOUNT3  DFHMDF POS=(6,30),LENGTH=8
NUMBER4  DFHMDF POS=(7,1),LENGTH=6
NAME4    DFHMDF POS=(7,9),LENGTH=20
AMOUNT4  DFHMDF POS=(7,30),LENGTH=8
MSG0     DFHMDF POS=(10,1),LENGTH=39,COLOR=BLUE,                       *
               INITIAL='PRESS CLEAR TO END BROWSE OPERATION'
MSG1     DFHMDF POS=(11,1),LENGTH=39,COLOR=BLUE,                       *
               INITIAL='PRESS PF1 OR TYPE F TO PAGE FORWARD'
MSG2     DFHMDF POS=(12,1),LENGTH=39,COLOR=BLUE,                       *
               INITIAL='PRESS PF2 OR TYPE B TO PAGE BACKWARD'
         DFHMSD TYPE=FINAL
         END