|
View previous topic :: View next topic
|
| Author |
Message |
Crunch
New User
Joined: 27 Jan 2010
Posts: 17
Location: Louisville, Ky
|
|
|
|
I've made modifications to a CICS program and MAP. I modified the map with SDF II, generated and new copied. I compiled the program and pointed to the maplib setup in SDF II and new copied. The program does not execute as it should because the Length of the new field I added is not being populated. Here's what I've looked at so far:
SDF II attributes:
GEMSID is the new field being added to the MAP.
| Code: |
DEFINE STRUCTURE M082AD1 3270-G
Structure . . . . . . . . . . . . . . . . . . . . COLUMNS 1-8 OF 8, ROW 1 OF 12
Lev Name --- Leng Occ Type --- Input pict Output pic Comment --------------
''' 02 PAGE-STR 3 FIELD ZZZ
''' 02 PAGE-END 3 FIELD ZZZ
''' 02 ERRMSG 77 FIELD X(77)
''' 02 OPT 1 18 FIELD
''' 02 NUM 4 18 FIELD
''' 02 USERID 8 18 FIELD
''' 02 LEVEL 5 18 FIELD
''' 02 LNAME 15 18 FIELD
''' 02 FNAME 15 18 FIELD
''' 02 GEMSID 7 18 FIELD
''' 02 EDITOR 8 18 FIELD
''' 02 EDDATE 6 18 FIELD
''' ************ END OF DATA **************************************************
|
SDF II output:
| Code: |
000251 ********************
000252 * INPUT OUTPUT AREAS
000253 ********************
000254 COPY M082AD1.
000255C *********************************************************
000256C * SDF: M082AD1 M082AD1
000257C *********************************************************
000258C 01 M082AD1I.
000259C 02 FILLER PIC X(12).
000260C 02 PAGE-STRL COMP PIC S9(4).
000261C 02 PAGE-STRF PIC X.
000262C 02 PAGE-STRI PIC X(3).
000263C 02 PAGE-ENDL COMP PIC S9(4).
000264C 02 PAGE-ENDF PIC X.
000265C 02 PAGE-ENDI PIC X(3).
000266C 02 ERRMSGL COMP PIC S9(4).
000267C 02 ERRMSGF PIC X.
000268C 02 ERRMSGI PIC X(77).
000269C 02 OPTD OCCURS 18 TIMES .
000270C 03 OPTL COMP PIC S9(4).
000271C 03 OPTF PIC X.
000272C 03 OPTI PIC X.
000273C 02 NUMD OCCURS 18 TIMES .
000274C 03 NUML COMP PIC S9(4).
000275C 03 NUMF PIC X.
000276C 03 NUMI PIC X(4).
000277C 02 USERIDD OCCURS 18 TIMES .
000278C 03 USERIDL COMP PIC S9(4).
000279C 03 USERIDF PIC X.
000280C 03 USERIDI PIC X(8).
000281C 02 LEVELD OCCURS 18 TIMES .
000282C 03 LEVELL COMP PIC S9(4).
000283C 03 LEVELF PIC X.
000284C 03 LEVELI PIC X(5).
000285C 02 LNAMED OCCURS 18 TIMES .
000286C 03 LNAMEL COMP PIC S9(4).
000287C 03 LNAMEF PIC X.
000288C 03 LNAMEI PIC X(15).
000289C 02 FNAMED OCCURS 18 TIMES .
000290C 03 FNAMEL COMP PIC S9(4).
000291C 03 FNAMEF PIC X.
000292C 03 FNAMEI PIC X(15).
000293C 02 GEMSIDD OCCURS 18 TIMES .
000294C 03 GEMSIDL COMP PIC S9(4).
000295C 03 GEMSIDF PIC X.
000296C 03 GEMSIDI PIC X(7).
000297C 02 EDITORD OCCURS 18 TIMES .
000298C 03 EDITORL COMP PIC S9(4).
000299C 03 EDITORF PIC X.
000300C 03 EDITORI PIC X(8).
000301C 02 EDDATED OCCURS 18 TIMES .
000302C 03 EDDATEL COMP PIC S9(4).
000303C 03 EDDATEF PIC X.
000304C 03 EDDATEI PIC X(6).
000305C *********************************************************
000306C * SDF: M082AD1 M082AD1
000307C *********************************************************
000308C 01 M082AD1O REDEFINES M082AD1I.
000309C 02 FILLER PIC X(12).
000310C 02 FILLER PIC X(2).
000311C 02 PAGE-STRA PIC X.
000312C 02 PAGE-STRO PIC ZZZ.
000313C 02 FILLER PIC X(2).
000314C 02 PAGE-ENDA PIC X.
000315C 02 PAGE-ENDO PIC ZZZ.
000316C 02 FILLER PIC X(2).
000317C 02 ERRMSGA PIC X.
000318C 02 ERRMSGO PIC X(77).
000319C 02 DFHMS1 OCCURS 18 TIMES .
000320C 03 FILLER PIC X(2).
000321C 03 OPTA PIC X.
000322C 03 OPTO PIC X.
000323C 02 DFHMS2 OCCURS 18 TIMES .
000324C 03 FILLER PIC X(2).
000325C 03 NUMA PIC X.
000326C 03 NUMO PIC X(4).
000327C 02 DFHMS3 OCCURS 18 TIMES .
000328C 03 FILLER PIC X(2).
000329C 03 USERIDA PIC X.
000330C 03 USERIDO PIC X(8).
000331C 02 DFHMS4 OCCURS 18 TIMES .
000332C 03 FILLER PIC X(2).
000333C 03 LEVELA PIC X.
000334C 03 LEVELO PIC X(5).
000335C 02 DFHMS5 OCCURS 18 TIMES .
000336C 03 FILLER PIC X(2).
000337C 03 LNAMEA PIC X.
000338C 03 LNAMEO PIC X(15).
000339C 02 DFHMS6 OCCURS 18 TIMES .
000340C 03 FILLER PIC X(2).
000341C 03 FNAMEA PIC X.
000342C 03 FNAMEO PIC X(15).
000343C 02 DFHMS7 OCCURS 18 TIMES .
000344C 03 FILLER PIC X(2).
000345C 03 GEMSIDA PIC X.
000346C 03 GEMSIDO PIC X(7).
000347C 02 DFHMS8 OCCURS 18 TIMES .
000348C 03 FILLER PIC X(2).
000349C 03 EDITORA PIC X.
000350C 03 EDITORO PIC X(8).
000351C 02 DFHMS9 OCCURS 18 TIMES .
000352C 03 FILLER PIC X(2).
000353C 03 EDDATEA PIC X.
000354C 03 EDDATEO PIC X(6).
000355 |
Intertest values before RECEIVE MAP command:
| Code: |
CA-InterTest for CICS r8 - PROTSYM FILE UNCOND BEFORE BREAKPOINT
COMMAND ===>
Program= N082UA01 Option # Stmt # Margin= 01
Search=
-------------------------------------------------------------------------------
_____ GEMSIDL(WS-SUB-3) | 00000.
_____ FNAMEL(WS-SUB-3) | 00000.
_____ LNAMEL(WS-SUB-3) | 00000.
---------+---------------------------------------------------------------------
_ 002217 PERFORM 02000-INITIALIZE THRU 02000-EXIT
_ 002218 IF WS-VALID-PFKEY
U 002219 PERFORM 80500-RECEIVE-FROM-MAP THRU 80500-EXIT
|
Intertest values after RECEIVE MAP command:
| Code: |
CA-InterTest for CICS r8 - PROTSYM FILE STEP BEFORE BREAKPOINT
COMMAND ===>
Program= N082UA01 Option # Stmt # Margin= 01
Search=
-------------------------------------------------------------------------------
_____ GEMSIDL(WS-SUB-3) | 00000.
_____ FNAMEL(WS-SUB-3) | +00015.
_____ LNAMEL(WS-SUB-3) | +00015.
---------+---------------------------------------------------------------------
_ 004011- '20f0f3f2f8f5404040' by reference dfhc0070 by reference
_ 004012 M082AD1I by content x'0000' by reference dfhc0071 end-call
_ ==> Move eibresp to CICS-RESPONSE. |
So, I guess my quesiton is why is field GEMSIDL not being populated with "+00007"? |
|
| Back to top |
|
 |
Earl Haigh
Active User
Joined: 25 Jul 2006
Posts: 475
|
|
|
|
when the map was sent to the screen, what does the attribute field
contain (GEMSIDA) ?
What was typed in the screen for field GEMSIDO ? |
|
| Back to top |
|
|
Crunch
New User
Joined: 27 Jan 2010
Posts: 17
Location: Louisville, Ky
|
|
|
|
GEMSIDA = "/" (minus the quotes)
It's defined as PROT DRK in SDFII
Nothing was typed in GEMSIDO |
|
| Back to top |
|
|
Ronald Burr
Active User
Joined: 22 Oct 2009
Posts: 293
Location: U.S.A.
|
|
|
|
What do the attributes PROT DRK mean?
When you find out, you will have your answer. |
|
| Back to top |
|
|
Earl Haigh
Active User
Joined: 25 Jul 2006
Posts: 475
|
|
|
|
While your learning about PROT and DRK, you should do some research
on FSET attribute setting.
the problem you have appears to be attribute setting. |
|
| Back to top |
|
|
Crunch
New User
Joined: 27 Jan 2010
Posts: 17
Location: Louisville, Ky
|
|
|
|
| Thanks for the help!!! |
|
| Back to top |
|
|
|
|
