Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
CICS length not getting populated with correct length

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
Crunch

New User


Joined: 27 Jan 2010
Posts: 17
Location: Louisville, Ky

PostPosted: Mon Aug 09, 2010 11:33 pm    Post subject: CICS length not getting populated with correct length
Reply with quote

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
View user's profile Send private message

Earl Haigh

Active User


Joined: 25 Jul 2006
Posts: 475

PostPosted: Tue Aug 10, 2010 6:48 am    Post subject:
Reply with quote

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
View user's profile Send private message
Crunch

New User


Joined: 27 Jan 2010
Posts: 17
Location: Louisville, Ky

PostPosted: Tue Aug 10, 2010 6:35 pm    Post subject:
Reply with quote

GEMSIDA = "/" (minus the quotes)
It's defined as PROT DRK in SDFII

Nothing was typed in GEMSIDO
Back to top
View user's profile Send private message
Ronald Burr

Active User


Joined: 22 Oct 2009
Posts: 293
Location: U.S.A.

PostPosted: Tue Aug 10, 2010 6:57 pm    Post subject:
Reply with quote

What do the attributes PROT DRK mean?
When you find out, you will have your answer.
Back to top
View user's profile Send private message
Earl Haigh

Active User


Joined: 25 Jul 2006
Posts: 475

PostPosted: Wed Aug 11, 2010 2:07 am    Post subject:
Reply with quote

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
View user's profile Send private message
Crunch

New User


Joined: 27 Jan 2010
Posts: 17
Location: Louisville, Ky

PostPosted: Thu Aug 12, 2010 6:12 pm    Post subject:
Reply with quote

Thanks for the help!!!
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Is CICS BMS logic on z/OS different ... Andi1982 CICS 2 Fri Dec 01, 2017 1:56 pm
No new posts How to get complete URL from CICS Con... mbattu CICS 1 Tue Nov 14, 2017 11:59 pm
No new posts Integrating CICS applications craig2020 CICS 1 Sun Oct 29, 2017 6:49 pm
No new posts ASP3 ABEND IN CICS Vedant CICS 0 Fri Oct 20, 2017 3:18 pm
No new posts Identifying Interfaces in CICS/mainframe Ashishpanpaliya CICS 5 Fri Oct 13, 2017 3:21 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us