*ASM XOPTS(EPILOG,SP)                                                   00010000
*        Copyright Russell Evans 2001                                   00020000
**********************************************************************  00030000
*      REESAMP  - core display utility sample program                *  00040000
**********************************************************************  00050000
*                                                                    *  00060000
* Module Name : REESAMP                                              *  00070000
**********************************************************************  00080000
REESAMP  TITLE   'CICS core display utility sample program'             00090000
*                                                                       00100000
         DFHREGS ,                                                      00110000
BASEREG  EQU   10                                                       00120000
DATAREG  EQU   4                                                        00130000
COMMBAR  EQU   5                                                        00140000
EIBBAR   EQU   6                                                        00150000
*                                                                       00160000
         COPY  DFHAID              Attention Id's                       00170000
         COPY  DFHBMSCA            BMS Attribute bytes                  00180000
COMAREA  DSECT                                                          00180100
LINK_COMM  DS  0F                                                       00181000
LINK_COMM_ADDRESS DS A           from address field                     00182000
LINK_COMM_PROGRAM DS CL8         from probram field                     00183002
LINK_COMM_AREA    DS CL8         from area field                        00184002
LINK_COMM_DISPLAY_ADDRESS DS A   start of display address on return     00185000
*                                                                       00190000
**********************************************                          00270000
*  STORAGE                                                              00280000
**********************************************                          00290000
*                                                                       00300000
DFHEISTG DSECT                                                          00310000
WS_RESP  DS    F                                                        00360000
         PRINT GEN                                                      00440000
REESAMP  DFHEIENT CODEREG=(BASEREG),EIBREG=(EIBBAR),DATAREG=(DATAREG)   00450000
REESAMP  AMODE 31                                                       00460000
REESAMP  RMODE ANY                                                      00470000
*                                                                       00570000
         ICM   COMMBAR,B'1111',DFHEICAP   Load DFHCOMMAREA Ptr          00580000
         BZ    RETURN                     If not present, exit          00590000
         USING COMAREA,COMMBAR                                          00591000
*                                                                       00600000
         EXEC CICS ADDRESS CWA(R2) NOHANDLE                             00601000
         ST    R2,LINK_COMM_DISPLAY_ADDRESS                             00610000
RETURN   DS    0H                                                       00620000
         EXEC CICS RETURN                                               00630000
         END  REESAMP                                                   00631000
*                                                                       00640000
