Filter
Top Products
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