Newsgroups: bit.listserv.notis-l
Date:         Mon, 31 Aug 1992 16:47:27 EDT
From:         Mike Garcia <MTG@CORNELLC.BITNET>
Subject:      Re: CICS Good Morning Transaction Exit

Hello,

Actually you don't need an EXIT, all you need is a TRANSACTION.  Here
is what we run at Cornell.

First modify your PPT (or CSD via RDO).  You need a PPT entry for the
program SYSP017 and for the mapset SP017MS.  Next you need to modify
the PCT (or CSD via RDO).  You need a PCT entry pointing the transaction
LOGO (clever name) at the program SYSP017.  Lastly you need to add or
modify your SIT (sorry no RDO) with the GMTRAN=LOGO entry.

When you compile the code, be sure to compile the mapset before you
compile the program.  The program expects to find a copy book created
by the map compile.  You can use the standard procs to compile this
code.  Ignore (do not fix) the warning message from the program compile
about the absence of the GOBACK/STOP RUN statement.

Cold start the CICS region.

The transaction can be started by typing "LOGO" on a blank screen or
by establishing a session to you CICS region.  Run in a test region
first.

Simple enough.

Mike Garcia
Cornell University
              ______
             /      |   INTERNET:  MTG@CORNELLC.CIT.CORNELL.EDU
            |       |   AT&T Net:  (607) 255-3748
  _________/        |   USNAIL  :  Room 321
  >                 |              Computing & Communications Ctr.
 /        *  Ithaca |              Cornell University
|______________     |              Ithaca, New York   14853
               `_   |              USA
                 `__|   ICBMNET:   42 28 N 76 28 W Alt 995

Here is the program.

       CBL XOPTS(NOSOURCE)
       IDENTIFICATION DIVISION.
       PROGRAM-ID.    SYSP017.
       AUTHOR.        MICHAEL T GARCIA.
       INSTALLATION.  CORNELL UNIVERSITY.
       DATE-WRITTEN.  AUG 30,1989.
       DATE-COMPILED. TODAY
       REMARKS.

      *    THIS MODULE CLEARS THE SCREEN, FREES THE KEYBOARD AND
      *    DISPLYS THE LOGO.  ODDLY ENOUGH IT IS CALLED BY THE
      *    TRANSACTION 'LOGO'

       ENVIRONMENT    DIVISION.
           EJECT
       DATA           DIVISION.
       WORKING-STORAGE SECTION.

           COPY SP017MS.

           EJECT
       PROCEDURE      DIVISION.

           EXEC CICS SEND MAP('SP017M2')
                     MAPSET('SP017MS')
                     FROM(SP017M2O)
                     LENGTH(1218)
                     ERASE
                     WAIT
                     END-EXEC.

           EXEC CICS DELAY
                     INTERVAL(1)
                     END-EXEC.

           EXEC CICS ASSIGN
                     APPLID(REGIONO)
                     END-EXEC.

           EXEC CICS SEND MAP('SP017M1')
                     MAPSET('SP017MS')
                     FROM(SP017M1O)
                     LENGTH(1218)
                     ERASE
                     WAIT
                     END-EXEC.

           EXEC CICS RETURN
                     END-EXEC.


Here is the mapset the program needs.  It contains two maps.

SP017MS  DFHMSD TYPE=MAP,                                              X
               MODE=OUT,                                               X
               LANG=COBOL,                                             X
               STORAGE=AUTO
*
SP017M1  DFHMDI SIZE=(24,80),                                          X
               LINE=1,                                                 X
               COLUMN=1,                                               X
               CTRL=(FREEKB),                                          X
               FIELDS=YES
*
         DFHMDF POS=(1,1),                                             X
               LENGTH=7,                                               X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL='CICS/VS'
         DFHMDF POS=(1,9),                                             X
               LENGTH=4,                                               X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,DRK,FSET),                                 X
               INITIAL='CSSN'
         DFHMDF POS=(1,14),                                            X
               LENGTH=65,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
*
         DFHMDF POS=(1,80),                                            X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
*
         DFHMDF POS=(2,80),                                            X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL='       *******'
*
         DFHMDF POS=(3,80),                                            X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL='     ***     ***                               X
                               ***    ***'
*
         DFHMDF POS=(4,80),                                            X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL='    **         **                              X
                                **     **'
*
         DFHMDF POS=(5,80),                                            X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL='   ***          *                              X
                                **     **'
*
         DFHMDF POS=(6,80),                                            X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL='   **                                          X
                                **     **'
*
         DFHMDF POS=(7,80),                                            X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL='  ***                                          X
                                **     **'
*
         DFHMDF POS=(8,80),                                            X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL='  ***                 ****     ** ***    ** ***X
               *      ****      **     **'
*
         DFHMDF POS=(9,80),                                            X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL='  ***                **  **     ******    *****X
               **    **  **     **     **'
*
         DFHMDF POS=(10,80),                                           X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL='  ***               **    **    **   **   **   X
               **   **    **    **     **'
*
         DFHMDF POS=(11,80),                                           X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL='   **               **    **    **        **   X
               **   ********    **     **'
*
         DFHMDF POS=(12,80),                                           X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL='   ***          *   **    **    **        **   X
               **   ********    **     **'
*
         DFHMDF POS=(13,80),                                           X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL='    **         **   **    **    **        **   X
               **   **          **     **'
*
         DFHMDF POS=(14,80),                                           X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL='     ***     ***     **  **     **        **   X
               **    **   **    **     **'
*
         DFHMDF POS=(15,80),                                           X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL='       *******        ****     ****      ****  X
               **     *****    ****   ****'
*
         DFHMDF POS=(16,80),                                           X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
*
         DFHMDF POS=(17,80),                                           X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL='                               Cornell UniversiX
               ty'
*
         DFHMDF POS=(18,80),                                           X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL='                                Ithaca, New YorX
               k'
*
         DFHMDF POS=(19,80),                                           X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
*
         DFHMDF POS=(20,80),                                           X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL='   This system is for authorized use only. See X
               Computer Abuse Policy(AN-239).'
*
         DFHMDF POS=(21,80),                                           X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
*
         DFHMDF POS=(22,80),                                           X
               LENGTH=34,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL='                             Press'
         DFHMDF POS=(23,35),                                           X
               LENGTH=5,                                               X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,BRT),                                      X
               INITIAL='ENTER'
         DFHMDF POS=(23,41),                                           X
               LENGTH=38,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL='to continue.'
*
         DFHMDF POS=(23,80),                                           X
               LENGTH=69,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
REGION   DFHMDF POS=(24,70),                                           X
               LENGTH=10,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
*
SP017M2  DFHMDI SIZE=(24,80),                                          X
               LINE=1,                                                 X
               COLUMN=1,                                               X
               CTRL=(FREEKB),                                          X
               FIELDS=YES
*
         DFHMDF POS=(1,1),                                             X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
*
         DFHMDF POS=(2,1),                                             X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
*
         DFHMDF POS=(3,1),                                             X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
*
         DFHMDF POS=(4,1),                                             X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
*
         DFHMDF POS=(5,1),                                             X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
*
         DFHMDF POS=(6,1),                                             X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
*
         DFHMDF POS=(7,1),                                             X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
*
         DFHMDF POS=(8,1),                                             X
               LENGTH=5,                                               X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
         DFHMDF POS=(8,6),                                             X
               LENGTH=74,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL='       CCCCCC    IIIII    CCCCCC     SSSSSS    X
                VVVV  VVVV    SSSSSS'
*
         DFHMDF POS=(9,1),                                             X
               LENGTH=5,                                               X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
         DFHMDF POS=(9,6),                                             X
               LENGTH=74,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL='     CCCCCCCC   IIIII   CCCCCCCC   SSSSSSSS    X
                VVV   VVV   SSSSSSSS'
*
         DFHMDF POS=(10,1),                                            X
               LENGTH=5,                                               X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
         DFHMDF POS=(10,6),                                            X
               LENGTH=74,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL='    CCCC  CC    III    CCCC  CC   SSSS  SS     X
                VVV  VVV   SSSS  SS '
*
         DFHMDF POS=(11,1),                                            X
               LENGTH=5,                                               X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
         DFHMDF POS=(11,6),                                            X
               LENGTH=74,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL='   CCC         III    CCC         SSSS     *** X
                VVV VVV    SSSS'
*
         DFHMDF POS=(12,1),                                            X
               LENGTH=5,                                               X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
         DFHMDF POS=(12,6),                                            X
               LENGTH=74,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL='  CCC         III    CCC           SSSS    *** X
                VVVVVV      SSSS'
*
         DFHMDF POS=(13,1),                                            X
               LENGTH=5,                                               X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
         DFHMDF POS=(13,6),                                            X
               LENGTH=74,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' CCCC  CC    III    CCCC  CC   SS  SSSS        X
                VVVVV   SS  SSSS'
*
         DFHMDF POS=(14,1),                                            X
               LENGTH=5,                                               X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
         DFHMDF POS=(14,6),                                            X
               LENGTH=74,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL='CCCCCCCC   IIIII   CCCCCCCC   SSSSSSSS         X
                VVVV   SSSSSSSS'
*
         DFHMDF POS=(15,1),                                            X
               LENGTH=5,                                               X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
         DFHMDF POS=(15,6),                                            X
               LENGTH=74,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL='CCCCCC    IIIII    CCCCCC     SSSSSS           X
                VVV    SSSSSS'
*
         DFHMDF POS=(16,1),                                            X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
*
         DFHMDF POS=(17,1),                                            X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
*
         DFHMDF POS=(18,1),                                            X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
*
         DFHMDF POS=(19,1),                                            X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
*
         DFHMDF POS=(20,1),                                            X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
*
         DFHMDF POS=(21,1),                                            X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
*
         DFHMDF POS=(22,1),                                            X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
*
         DFHMDF POS=(23,1),                                            X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
*
         DFHMDF POS=(24,1),                                            X
               LENGTH=79,                                              X
               JUSTIFY=(RIGHT,BLANK),                                  X
               ATTRB=(ASKIP,NORM),                                     X
               INITIAL=' '
*
*
         DFHMSD TYPE=FINAL
*
         END
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU