IBM SC34-5764-01 User Manual
Page 450
The map DSECT follows.
* TEST PANEL FOR REXX/CICS
00000010
PANEL1S
EQU
*
START OF DEFINITION
00000020
SPACE
00000030
DS
CL12
TIOA PREFIX
00000040
DUSERIDL DS
CL2
INPUT DATA FIELD LENGTH
00000050
DUSERIDF DS
0C
DATA FIELD FLAG
00000060
DUSERIDA DS
C
DATA FIELD 3270 ATTRIBUTE
00000070
DUSERIDC DS
C
COLOR ATTRIBUTE
00000080
DUSERIDH DS
C
HIGHLIGHTING ATTRIBUTE
00000090
DUSERIDI DS
0CL8
INPUT DATA FIELD
00000100
DUSERIDO DS
CL8
OUTPUT DATA FIELD
00000110
SPACE
00000120
DMSGL
DS
CL2
INPUT DATA FIELD LENGTH
00000130
DMSGF
DS
0C
DATA FIELD FLAG
00000140
DMSGA
DS
C
DATA FIELD 3270 ATTRIBUTE
00000150
DMSGC
DS
C
COLOR ATTRIBUTE
00000160
DMSGH
DS
C
HIGHLIGHTING ATTRIBUTE
00000170
DMSGI
DS
0CL29
INPUT DATA FIELD
00000180
DMSGO
DS
CL29
OUTPUT DATA FIELD
00000190
SPACE
00000200
PANEL1E
EQU
*
00000210
ORG
PANEL1S
ADDRESS START
00000220
* CALCULATE MAPLENGTH, ASSIGNING A VALUE OF ONE WHERE LENGTH=ZERO
00000230
PANEL1L
EQU
PANEL1E-PANEL1S
00000240
PANEL1I
DS
0CL(PANEL1L+1-(PANEL1L/PANEL1L))
00000250
PANEL1O
DS
0CL(PANEL1L+1-(PANEL1L/PANEL1L))
00000260
ORG
00000270
* * * END OF DEFINITION * * *
00000280
SPACE 3
00000290
ORG
00000300
PANELGT
EQU
*
* END OF MAP SET
00000310
* * * END OF MAP SET DEFINITION * * *
00000320
SPACE 3
00000330
The CONVTMAP command is used to take the DSECT and create a file structure stored in the RFS. The
command is entered as follows:
'CONVTMAP USER.TEST(PANELG) POOL1:\USERS\USER1\PANELG.DATA'
The following is the file structure created by CONVTMAP.
00000 ***************************** TOP OF DATA *************************
00001 DUSERIDL 13 2
C
00002 DUSERIDF 15 1
C
00003 DUSERIDA 15 1
C
00004 DUSERIDC 16 1
C
00005 DUSERIDH 17 1
C
00006 DUSERIDI 18 8
C
00007 DUSERIDO 18 8
C
00008 DMSGL 26 2
C
00009 DMSGF 28 1
C
00010 DMSGA 28 1
C
00011 DMSGC 29 1
C
00012 DMSGH 30 1
C
00013 DMSGI 31 29
C
00014 DMSGO 31 29
C
00015 ***************************** BOTTOM OF DATA***********************
The following example is exec BMSMAP1. It creates a simple panel that asks for a user ID.
/* This EXEC uses CICS SEND and RECEIVE commands
*/
/* The panel has two fields USERID and a message
*/
/* field.
The panel is initially displayed with
*/
/* a message - "USERID must be 8 characters"
*/
/* GETMAIN storage to be used for data mapping
*/
BMS Example
428
CICS TS for VSE/ESA: REXX Guide