*|*-------------------------------------------------------------------+
*|              Copyright (c) 1995, SAS Institute Inc.                |
*|                Unpublished - All Rights Reserved                   |
*|                     S A S / C   S A M P L E                        |
*|                                                                    |
*|                                                                    |
*|        NAME: SASCAMB                                               |
*|    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(SASCAMB) 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 INQUIRY/UPDATE - SAS/C'
MAPSETB  DFHMSD TYPE=&SYSPARM,MODE=INOUT,CTRL=(FREEKB,FRSET),          *
               LANG=ASM,TIOAPFX=YES,EXTATT=MAPONLY
SASCAGB  DFHMDI SIZE=(12,40)
TITLE    DFHMDF POS=(1,15),LENGTH=12
         DFHMDF POS=(3,1),LENGTH=8,INITIAL='NUMBER:',COLOR=BLUE
NUMB     DFHMDF POS=(3,10),LENGTH=6
         DFHMDF POS=(3,17),LENGTH=1
         DFHMDF POS=(4,1),LENGTH=8,INITIAL='NAME:   ',COLOR=BLUE
NAME     DFHMDF POS=(4,10),LENGTH=20,ATTRB=(UNPROT,IC)
         DFHMDF POS=(4,31),LENGTH=1
         DFHMDF POS=(5,1),LENGTH=8,INITIAL='ADDRESS:',COLOR=BLUE
ADDR     DFHMDF POS=(5,10),LENGTH=20,ATTRB=UNPROT
         DFHMDF POS=(5,31),LENGTH=1
         DFHMDF POS=(6,1),LENGTH=8,INITIAL='PHONE:   ',COLOR=BLUE
PHONE    DFHMDF POS=(6,10),LENGTH=8,ATTRB=UNPROT
         DFHMDF POS=(6,19),LENGTH=1
         DFHMDF POS=(7,1),LENGTH=8,INITIAL='DATE:    ',COLOR=BLUE
DATE     DFHMDF POS=(7,10),LENGTH=8,ATTRB=UNPROT
         DFHMDF POS=(7,19),LENGTH=1
         DFHMDF POS=(8,1),LENGTH=8,INITIAL='AMOUNT:  ',COLOR=BLUE
AMOUNT   DFHMDF POS=(8,10),LENGTH=8,ATTRB=NUM
         DFHMDF POS=(8,19),LENGTH=1
         DFHMDF POS=(9,1),LENGTH=8,INITIAL='COMMENT:',COLOR=BLUE
COMMENT  DFHMDF POS=(9,10),LENGTH=9,ATTRB=UNPROT
         DFHMDF POS=(9,20),LENGTH=1
MSG1     DFHMDF POS=(11,1),LENGTH=39
MSG3     DFHMDF POS=(12,1),LENGTH=39
         DFHMSD TYPE=FINAL
         END