Show filed whit too much lenght on BMS.



Support for CICS/ESA, CICS/TS & Transaction Gateway, CICS Configuration Manager and CICS Performance Analyzer

Show filed whit too much lenght on BMS.

Postby Mehdi shri » Tue Feb 28, 2012 11:56 pm

Dear friends
How I can show a filed whit more than 79 byte lenght in BMS. Is ther any way to show it in more than one line. I wont to split it and send to another line. I want to send it to one line then BMS or CICS split it and locate rest of 80 characters (or bytes of) field to next lines.
Special thanks.
Mehdi shri
 
Posts: 138
Joined: Sun Jan 16, 2011 6:30 pm
Has thanked: 57 times
Been thanked: 0 time

Re: Show filed whit too much lenght on BMS.

Postby Robert Sample » Wed Feb 29, 2012 12:34 am

Define your map with multiple lines -- however many are needed. Move the first 79 bytes of the record to the first line, the second 79 to the next line, and so forth. This can be done with reference modification in COBOL or by using appropriate variable defintiions in your CICS program. Basically, CICS or BMS will not do any line splitting for you -- the assumption is that you, the programmer, are smart enough to handle those types of tasks yourself.
Robert Sample
Global moderator
 
Posts: 3719
Joined: Sat Dec 19, 2009 8:32 pm
Location: Dubuque, Iowa, USA
Has thanked: 1 time
Been thanked: 279 times

Re: Show filed whit too much lenght on BMS.

Postby enrico-sorichetti » Wed Feb 29, 2012 1:09 am

I beg to differ :)
the 3270 architecture does not care where a field starts and where it ends
if <things> are properly defined and understood a field can be of ant length and the 3270 hardware will happily continue showing the data
over the line(s) that follow(s)

since I do not have cics running now I tested with an ispf panel and I was able to enter ( I got bored afterwards ) up to more than 200 chars
and the REXX displaying the panel showed the correct length

for cics is the same thing ( just tested , just the map assembly) and the following map assembles correctly
 000010 TEST    DFHMSD TYPE=MAP,MODE=INOUT,LANG=COBOL,                         X
 000011                STORAGE=AUTO,TIOAPFX=YES                                 
 000012 *       MENU MAP.                                                       
 000013 TEST01  DFHMDI SIZE=(24,80),CTRL=(PRINT,FREEKB)                         
 000014 LONG01  DFHMDF POS=(1,1),ATTRB=(UNPROT,NORM,IC),LENGTH=240             
 000015 SKIP01  DFHMDF POS=(4,2),ATTRB=(ASKIP,NORM),LENGTH=1,INITIAL=' '       
 000016 NORM01  DFHMDF POS=(5,1),ATTRB=(UNPROT,NORM),LENGTH=80                 
 000017 SKIP02  DFHMDF POS=(6,2),ATTRB=(ASKIP,NORM),LENGTH=1,INITIAL=' '       
 000018 LAST01  DFHMDF POS=(23,1),ATTRB=(UNPROT,NORM),LENGTH=80                 
 000019 SKIP03  DFHMDF POS=(24,2),ATTRB=(ASKIP,NORM),LENGTH=1,INITIAL=' '       
 000020         DFHMSD TYPE=FINAL                                               
 000021         END                                                             
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico-sorichetti
Global moderator
 
Posts: 2994
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 164 times


Return to CICS

 


  • Related topics
    Replies
    Views
    Last post