开云体育

ctrl + shift + ? for shortcuts
© 2025 开云体育
  1. H390-MVS
  2. Topics

CICS Map generator

 

开云体育

Hello all, anyone know of a good BMS MAP generator software that’s fairly reasonable or free? I don’t need anything like microfocus or some other MF software vendor. Thanks ?Mike!
 

>?Hello all, anyone know of a good BMS MAP generator software that’s fairly reasonable or free

This python script may be suitable depending on how complex a map you require.



Regards
botongrui

On Monday, 21 October 2024 at 21:53, Mike Ward <antebios1153@...> wrote:

Hello all, anyone know of a good BMS MAP generator software that’s fairly reasonable or free? I don’t need anything like microfocus or some other MF software vendor. Thanks ?Mike!



--
--
τσ尘
 

Kicks For TSO or CMS, installable to TK4-
Intercom included TK5

On Mon, Oct 21, 2024 at 3:53?PM Mike Ward via groups.io
<antebios1153@...> wrote:

Hello all, anyone know of a good BMS MAP generator software that’s fairly reasonable or free? I don’t need anything like microfocus or some other MF software vendor. Thanks Mike!



--
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?
 

开云体育

Thanks I’ll look into it.

?

From: [email protected] <[email protected]> On Behalf Of botongrui, aka tsm. via groups.io
Sent: Monday, October 21, 2024 4:16 PM
To: [email protected]
Subject: Re: [H390-MVS] CICS Map generator

?

>?Hello all, anyone know of a good BMS MAP generator software that’s fairly reasonable or free

?

This python script may be suitable depending on how complex a map you require.

?

?

Regards

botongrui

?

On Monday, 21 October 2024 at 21:53, Mike Ward <antebios1153@...> wrote:

Hello all, anyone know of a good BMS MAP generator software that’s fairly reasonable or free? I don’t need anything like microfocus or some other MF software vendor. Thanks ?Mike!

?


--
--
τσ尘

 

It could be interesting, I am not a fan of AI tools but your demand of a tool to write CICS BMS MAPs excited my curiosity, and I tried this with CHATGPT.COM :

"build a bms map for cics with a screen size of 24 lines and 80 columns
supporting 4 fields CODE, NAME, REGION, AMOUNT,? ?
CODE, NAME, REGION and AMOUNT unprotected
AMOUNT is numeric with 2 decimals"

The results was this, please review it, despite I learned to code CICS programs in 1983, I never was an expert, also take into account chatgpt added LENGTH and the coordinates of the fields I didn't specificy?Emoji :

*BEGIN CHATGPT OUTPUT ***
* Define the map
MAPNAME MAP01
      DFHMSD TYPE=MAP,         * Map definition
             LENGTH=80,       * Length of the map
             NROWS=24,        * Number of rows
             MAPSET=YOUR_MAPSET, * Define your mapset
             LANGUAGE=COBOL.   * Language

* Define the fields
CODE    DFHMDF POS=(02,02),   * CODE field
        LENGTH=10,           * Length of CODE
        ATTRB=UNPROT.        * Unprotected attribute

NAME    DFHMDF POS=(02,13),   * NAME field
        LENGTH=20,           * Length of NAME
        ATTRB=UNPROT.        * Unprotected attribute

REGION  DFHMDF POS=(02,34),   * REGION field
        LENGTH=15,           * Length of REGION
        ATTRB=UNPROT.        * Unprotected attribute

AMOUNT  DFHMDF POS=(02,50),   * AMOUNT field
        LENGTH=10,           * Length of AMOUNT
        ATTRB=UNPROT,        * Unprotected attribute
        NUMERIC=YES,         * Numeric field
        DECIMALS=2.          * Two decimal places

* End of map definition
DFHMSD TYPE=TERM.

Explanation of the Map

  1. MAPNAME: The name of the map is defined as MAP01.
  2. DFHMSD: This statement defines the map characteristics, such as type, length, and number of rows.
  3. Fields:
    • Each field (CODE, NAME, REGION, AMOUNT) is defined with:
      • POS: Specifies the position on the screen (row, column).
      • LENGTH: Indicates the length of the field.
      • ATTRB: Set to UNPROT for unprotected fields so users can modify them.
      • NUMERIC: For the AMOUNT field, this indicates it's numeric and includes the number of decimal places.

Usage in CICS

  • This BMS map can be used in a CICS transaction program to display and gather input from users.
  • You would typically use CICS commands to send this map to the terminal and receive input back.

Example CICS Program Snippet

Here’s a simple snippet demonstrating how you might use this map in a COBOL program:

cobol

       EXEC CICS SEND MAP('MAP01') 
            CURSOR('02,02') 
            ENDPAGE
       END-EXEC.

       EXEC CICS RECEIVE MAP('MAP01') 
            INTO(WS-DATA) 
            LENGTH(80)
       END-EXEC.

Make sure to adjust the map and field attributes based on your specific requirements and conventions used in your organization!
*END CHATGPT OUTPUT ***





Alejandro Garcia

Barcelona



Em segunda-feira, 21 de outubro de 2024 às 23:37:35 GMT+2, Mike Ward <antebios1153@...> escreveu:


Thanks I’ll look into it.

?

From: [email protected] <[email protected]> On Behalf Of botongrui, aka tsm. via groups.io
Sent: Monday, October 21, 2024 4:16 PM
To: [email protected]
Subject: Re: [H390-MVS] CICS Map generator

?

>?Hello all, anyone know of a good BMS MAP generator software that’s fairly reasonable or free

?

This python script may be suitable depending on how complex a map you require.

?

?

Regards

botongrui

?

On Monday, 21 October 2024 at 21:53, Mike Ward <antebios1153@...> wrote:

Hello all, anyone know of a good BMS MAP generator software that’s fairly reasonable or free? I don’t need anything like microfocus or some other MF software vendor. Thanks ?Mike!

?


--
--
τσ尘

 

I am sorry, maybe chatgpt didn't add LINEFEED characters, this is the map:


* Define the map
MAPNAME MAP01
????? DFHMSD TYPE=MAP,???????? * Map definition
???????????? LENGTH=80,?????? * Length of the map
???????????? NROWS=24,??????? * Number of rows
???????????? MAPSET=YOUR_MAPSET, * Define your mapset
???????????? LANGUAGE=COBOL.?? * Language

* Define the fields
CODE??? DFHMDF POS=(02,02),?? * CODE field
??????? LENGTH=10,?????????? * Length of CODE
??????? ATTRB=UNPROT.??????? * Unprotected attribute

NAME??? DFHMDF POS=(02,13),?? * NAME field
??????? LENGTH=20,?????????? * Length of NAME
??????? ATTRB=UNPROT.??????? * Unprotected attribute

REGION? DFHMDF POS=(02,34),?? * REGION field
??????? LENGTH=15,?????????? * Length of REGION
??????? ATTRB=UNPROT.??????? * Unprotected attribute

AMOUNT? DFHMDF POS=(02,50),?? * AMOUNT field
??????? LENGTH=10,?????????? * Length of AMOUNT
??????? ATTRB=UNPROT,??????? * Unprotected attribute
??????? NUMERIC=YES,???????? * Numeric field
??????? DECIMALS=2.????????? * Two decimal places

* End of map definition
DFHMSD TYPE=TERM.


Alejandro Garcia

(+34)656449946
https://es.linkedin.com/in/alejandro-garcia-45339b14



Em ter?a-feira, 22 de outubro de 2024 às 09:51:54 GMT+2, Alex Garcia <rocral2@...> escreveu:


It could be interesting, I am not a fan of AI tools but your demand of a tool to write CICS BMS MAPs excited my curiosity, and I tried this with CHATGPT.COM :

"build a bms map for cics with a screen size of 24 lines and 80 columns
supporting 4 fields CODE, NAME, REGION, AMOUNT,? ?
CODE, NAME, REGION and AMOUNT unprotected
AMOUNT is numeric with 2 decimals"

The results was this, please review it, despite I learned to code CICS programs in 1983, I never was an expert, also take into account chatgpt added LENGTH and the coordinates of the fields I didn't specificy?Emoji :

*BEGIN CHATGPT OUTPUT ***
* Define the map
MAPNAME MAP01
      DFHMSD TYPE=MAP,         * Map definition
             LENGTH=80,       * Length of the map
             NROWS=24,        * Number of rows
             MAPSET=YOUR_MAPSET, * Define your mapset
             LANGUAGE=COBOL.   * Language

* Define the fields
CODE    DFHMDF POS=(02,02),   * CODE field
        LENGTH=10,           * Length of CODE
        ATTRB=UNPROT.        * Unprotected attribute

NAME    DFHMDF POS=(02,13),   * NAME field
        LENGTH=20,           * Length of NAME
        ATTRB=UNPROT.        * Unprotected attribute

REGION  DFHMDF POS=(02,34),   * REGION field
        LENGTH=15,           * Length of REGION
        ATTRB=UNPROT.        * Unprotected attribute

AMOUNT  DFHMDF POS=(02,50),   * AMOUNT field
        LENGTH=10,           * Length of AMOUNT
        ATTRB=UNPROT,        * Unprotected attribute
        NUMERIC=YES,         * Numeric field
        DECIMALS=2.          * Two decimal places

* End of map definition
DFHMSD TYPE=TERM.

Explanation of the Map
  1. MAPNAME: The name of the map is defined as MAP01.
  2. DFHMSD: This statement defines the map characteristics, such as type, length, and number of rows.
  3. Fields:
    • Each field (CODE, NAME, REGION, AMOUNT) is defined with:
      • POS: Specifies the position on the screen (row, column).
      • LENGTH: Indicates the length of the field.
      • ATTRB: Set to UNPROT for unprotected fields so users can modify them.
      • NUMERIC: For the AMOUNT field, this indicates it's numeric and includes the number of decimal places.
Usage in CICS
  • This BMS map can be used in a CICS transaction program to display and gather input from users.
  • You would typically use CICS commands to send this map to the terminal and receive input back.
Example CICS Program Snippet
Here’s a simple snippet demonstrating how you might use this map in a COBOL program:
cobol

       EXEC CICS SEND MAP('MAP01') 
            CURSOR('02,02') 
            ENDPAGE
       END-EXEC.

       EXEC CICS RECEIVE MAP('MAP01') 
            INTO(WS-DATA) 
            LENGTH(80)
       END-EXEC.

Make sure to adjust the map and field attributes based on your specific requirements and conventions used in your organization!
*END CHATGPT OUTPUT ***





Alejandro Garcia

Barcelona


        



        
        

            

                
                

                        Em segunda-feira, 21 de outubro de 2024 às 23:37:35 GMT+2, Mike Ward <antebios1153@...> escreveu:
                    

                    


                    


                
                
                
Thanks I’ll look into it.
 ?

				
					
					

					


From: [email protected] <[email protected]> On Behalf Of botongrui, aka tsm. via groups.io
Sent: Monday, October 21, 2024 4:16 PM
To: [email protected]
Subject: Re: [H390-MVS] CICS Map generator
 ?
>?Hello all, anyone know of a good BMS MAP generator software that’s fairly reasonable or free
 ?
This python script may be suitable depending on how complex a map you require.
 ?
 ?
Regards
botongrui
 ?
On Monday, 21 October 2024 at 21:53, Mike Ward <antebios1153@...> wrote:

Hello all, anyone know of a good BMS MAP generator software that’s fairly reasonable or free? I don’t need anything like microfocus or some other MF software vendor. Thanks ?Mike!
 ?

-- 
-- 
τσ尘 




            
        
            
        

					


				
				
				
			

			
			

	

	
			

			

				
					

				
				
			

			

				

					

				

			

			
			
			

			


				
	



			
		
			
				
	

		
			

			
			

			
			
			

				

					


						
							

								
								
							

						
					

					

						
							


						
						 
						
							
							
						
						
					

				

			

			

			

				





开云体育
That’s really awesome. Thanks.
?

				
					
					

					


From: [email protected] <[email protected]> On Behalf Of Alex Garcia via groups.io
Sent: Tuesday, October 22, 2024 2:52 AM
To: [email protected]
Subject: Re: [H390-MVS] CICS Map generator
?
It could be interesting, I am not a fan of AI tools but your demand of a tool to write CICS BMS MAPs excited my curiosity, and I tried this with CHATGPT.COM :
?
"build a bms map for cics with a screen size of 24 lines and 80 columns 
supporting 4 fields CODE, NAME, REGION, AMOUNT,? ?
CODE, NAME, REGION and AMOUNT unprotected
AMOUNT is numeric with 2 decimals"
?
The results was this, please review it, despite I learned to code CICS programs in 1983, I never was an expert, also take into account chatgpt added LENGTH and the coordinates of the fields I didn't specificy?Emoji :
?
*BEGIN CHATGPT OUTPUT ***
* Define the map
MAPNAME MAP01
????? DFHMSD TYPE=MAP,???????? * Map definition
???????????? LENGTH=80,?????? * Length of the map
???????????? NROWS=24,??????? * Number of rows
???????????? MAPSET=YOUR_MAPSET, * Define your mapset
???????????? LANGUAGE=COBOL.?? * Language
?
* Define the fields
CODE??? DFHMDF POS=(02,02),?? * CODE field
??????? LENGTH=10,?????????? * Length of CODE
??????? ATTRB=UNPROT.??????? * Unprotected attribute
?
NAME??? DFHMDF POS=(02,13),?? * NAME field
??????? LENGTH=20,?????????? * Length of NAME
??????? ATTRB=UNPROT.??????? * Unprotected attribute
?
REGION? DFHMDF POS=(02,34),?? * REGION field
??????? LENGTH=15,?????????? * Length of REGION
??????? ATTRB=UNPROT.??????? * Unprotected attribute
?
AMOUNT? DFHMDF POS=(02,50),?? * AMOUNT field
??????? LENGTH=10,?????????? * Length of AMOUNT
??????? ATTRB=UNPROT,??????? * Unprotected attribute
??????? NUMERIC=YES,???????? * Numeric field
??????? DECIMALS=2.????????? * Two decimal places
?
* End of map definition
DFHMSD TYPE=TERM.
Explanation of the Map
  1. MAPNAME: The name of the map is defined as MAP01.
  2. DFHMSD: This statement defines the map characteristics, such as type, length, and number of rows.
  3. Fields:
    • Each field (CODE, NAME, REGION, AMOUNT) is defined with:
      • POS: Specifies the position on the screen (row, column).
      • LENGTH: Indicates the length of the field.
      • ATTRB: Set to UNPROT for unprotected fields so users can modify them.
      • NUMERIC: For the AMOUNT field, this indicates it's numeric and includes the number of decimal places.
Usage in CICS
  • This BMS map can be used in a CICS transaction program to display and gather input from users.
  • You would typically use CICS commands to send this map to the terminal and receive input back.
Example CICS Program Snippet
Here’s a simple snippet demonstrating how you might use this map in a COBOL program:
cobol


?????? EXEC CICS SEND MAP('MAP01') 
????????????CURSOR('02,02') 
????????????ENDPAGE
?????? END-EXEC.
?
?????? EXEC CICS RECEIVE MAP('MAP01') 
????????????INTO(WS-DATA) 
????????????LENGTH(80)
?????? END-EXEC.
Make sure to adjust the map and field attributes based on your specific requirements and conventions used in your organization!
*END CHATGPT OUTPUT ***
?
?
?
?
?
Alejandro Garcia

Barcelona
?
?
?
Em segunda-feira, 21 de outubro de 2024 às 23:37:35 GMT+2, Mike Ward <antebios1153@...> escreveu: 
?
?
Thanks I’ll look into it.
?
From: [email protected] <[email protected]> On Behalf Of botongrui, aka tsm. via groups.io
Sent: Monday, October 21, 2024 4:16 PM
To: [email protected]
Subject: Re: [H390-MVS] CICS Map generator
?
>?Hello all, anyone know of a good BMS MAP generator software that’s fairly reasonable or free
?
This python script may be suitable depending on how complex a map you require.
?
?
Regards
botongrui
?
On Monday, 21 October 2024 at 21:53, Mike Ward <antebios1153@...> wrote:
Hello all, anyone know of a good BMS MAP generator software that’s fairly reasonable or free? I don’t need anything like microfocus or some other MF software vendor. Thanks ?Mike!
?

-- 
-- 
τσ尘 

					


				
				
				
			

			
			

	

	
			

			

				
					

				
				
			

			

				

					

				

			

			
			
			

			


				
	



			
		
			
				
	

		
			

			
			

			
			
			

				

					


						
							

								
								
							

						
					

					

						
							


						
						 
						
							
							
						
						
					

				

			

			

			

				
On 10.21.2024 15:53, Mike Ward via groups.io wrote:
Hello all, anyone know of a good BMS MAP generator software that's fairly
reasonable or free? I don't need anything like microfocus or some other MF
software vendor. Thanks  Mike!
I use this one when I need something quick & dirty and don't want to
code it entirely by hand:



Runs entirely client-side in the browser; note that if you view source
and grab all the necessary JavaScript files, save the HTML page, and
update the script links to your local copies of the files the whole
thing will run "offline" and you're not dependent on that web site
sticking around forever.

-Matthew

				
				
				
			

			
			

	

	
			

			

				
					

				
				
			

			

				

					

				

			

			
			
			

			


				
	



			
		
			
				
	

		
			

			
			

			
			
			

				

					


						
							

								
								
							

						
					

					

						
							


						
						 
						
							
							
						
						
					

				

			

			

			

				
Hello Alex,

Am 22.10.2024 um 10:51 schrieb Alex Garcia via groups.io <rocral2@...>:

I am sorry, maybe chatgpt didn't add LINEFEED characters, this is the map:
A perfect example why you never should trust AI generated code blindly.

:wq! PoC (greatly appalled about this ubiquitous AI hype)

				
				
				
			

			
			

	

	
			

			

				
					

				
				
			

			

				

					

				

			

			
			
			

			


				
	



			
		
			
				
	

		
			

			
			

			
			
			

				

					


						
							

								
								
							

						
					

					

						
							


						
						 
						
							
							
						
						
					

				

			

			

			

				
Patrik, I daresay it is the wet dream of some if not all senior managers responsible for a software product to replace developers (Programmers) by AI.?


Let's see if and when this dream is about to come true.?


?


Kind regards


Michael


--


TK5? ? ? ? on Raspberry Pi 5 with Raspberry OS "bookworm"


TK4-? ? ? on Raspberry Pi 5 with Raspberry OS "bookworm"
VM/370 on Raspberry Pi 5 with Raspberry OS "bookworm"

Lime and limpid green, a second scene
Now fights between the blue you once knew
Floating down, the sound resounds
Around the icy waters underground
Jupiter and Saturn, Oberon, Miranda and Titania
Neptune, Titan, stars can frighten


(Syd Barrett of Pink Floyd)

				
				
				
			

			
			

	

	
			

			

				
					

				
				
			

			

				

					

				

			

			
			
			

			


				
	



			
		
			
				
	

		
			

			
			

			
			
			

				

					


						
							

								
								
							

						
					

					

						
							


						
						 
						
							
							
						
						
					

				

			

			

			

				
Thank you.

				
					
					

					


-----Original Message-----
From: [email protected] <[email protected]> On Behalf Of Matthew Wilson
Sent: Tuesday, October 22, 2024 2:07 PM
To: [email protected]
Subject: Re: [H390-MVS] CICS Map generator

On 10.21.2024 15:53, Mike Ward via groups.io wrote:
Hello all, anyone know of a good BMS MAP generator software that's 
fairly reasonable or free? I don't need anything like microfocus or 
some other MF software vendor. Thanks  Mike!
I use this one when I need something quick & dirty and don't want to code it entirely by hand:



Runs entirely client-side in the browser; note that if you view source and grab all the necessary JavaScript files, save the HTML page, and update the script links to your local copies of the files the whole thing will run "offline" and you're not dependent on that web site sticking around forever.

-Matthew

					


				
				
				
			

			
			

	

	
			

			

				
					

				
				
			

			

				

					

				

			

			
			
			

			


				
	



			
		
			
				
	

		
			

			
			

			
			
			

				

					


						
							

								
								
							

						
					

					

						
							


						
						 
						
							
							
						
						
					

				

			

			

			

				
There other tool merant microfocus.mainframe express , there are cobol cics db2 y map generator 



				
					
					

					


El mar., 22 de octubre de 2024 3:51 a. m., Alex Garcia via  <rocral2=[email protected]> escribió:
I am sorry, maybe chatgpt didn't add LINEFEED characters, this is the map:


* Define the map
MAPNAME MAP01
????? DFHMSD TYPE=MAP,???????? * Map definition
???????????? LENGTH=80,?????? * Length of the map
???????????? NROWS=24,??????? * Number of rows
???????????? MAPSET=YOUR_MAPSET, * Define your mapset
???????????? LANGUAGE=COBOL.?? * Language

* Define the fields
CODE??? DFHMDF POS=(02,02),?? * CODE field
??????? LENGTH=10,?????????? * Length of CODE
??????? ATTRB=UNPROT.??????? * Unprotected attribute

NAME??? DFHMDF POS=(02,13),?? * NAME field
??????? LENGTH=20,?????????? * Length of NAME
??????? ATTRB=UNPROT.??????? * Unprotected attribute

REGION? DFHMDF POS=(02,34),?? * REGION field
??????? LENGTH=15,?????????? * Length of REGION
??????? ATTRB=UNPROT.??????? * Unprotected attribute

AMOUNT? DFHMDF POS=(02,50),?? * AMOUNT field
??????? LENGTH=10,?????????? * Length of AMOUNT
??????? ATTRB=UNPROT,??????? * Unprotected attribute
??????? NUMERIC=YES,???????? * Numeric field
??????? DECIMALS=2.????????? * Two decimal places

* End of map definition
DFHMSD TYPE=TERM.


Alejandro Garcia

(+34)656449946



        



        
        

            

                
                

                        Em ter?a-feira, 22 de outubro de 2024 às 09:51:54 GMT+2, Alex Garcia <rocral2@...> escreveu:
                    

                    


                    


                
                
                
It could be interesting, I am not a fan of AI tools but your demand of a tool to write CICS BMS MAPs excited my curiosity, and I tried this with  :

"build a bms map for cics with a screen size of 24 lines and 80 columns 
supporting 4 fields CODE, NAME, REGION, AMOUNT,? ?
CODE, NAME, REGION and AMOUNT unprotected
AMOUNT is numeric with 2 decimals"

The results was this, please review it, despite I learned to code CICS programs in 1983, I never was an expert, also take into account chatgpt added LENGTH and the coordinates of the fields I didn't specificy?Emoji :

*BEGIN CHATGPT OUTPUT ***
* Define the map
MAPNAME MAP01
      DFHMSD TYPE=MAP,         * Map definition
             LENGTH=80,       * Length of the map
             NROWS=24,        * Number of rows
             MAPSET=YOUR_MAPSET, * Define your mapset
             LANGUAGE=COBOL.   * Language

* Define the fields
CODE    DFHMDF POS=(02,02),   * CODE field
        LENGTH=10,           * Length of CODE
        ATTRB=UNPROT.        * Unprotected attribute

NAME    DFHMDF POS=(02,13),   * NAME field
        LENGTH=20,           * Length of NAME
        ATTRB=UNPROT.        * Unprotected attribute

REGION  DFHMDF POS=(02,34),   * REGION field
        LENGTH=15,           * Length of REGION
        ATTRB=UNPROT.        * Unprotected attribute

AMOUNT  DFHMDF POS=(02,50),   * AMOUNT field
        LENGTH=10,           * Length of AMOUNT
        ATTRB=UNPROT,        * Unprotected attribute
        NUMERIC=YES,         * Numeric field
        DECIMALS=2.          * Two decimal places

* End of map definition
DFHMSD TYPE=TERM.

Explanation of the Map
  1. MAPNAME: The name of the map is defined as MAP01.
  2. DFHMSD: This statement defines the map characteristics, such as type, length, and number of rows.
  3. Fields:
    • Each field (CODE, NAME, REGION, AMOUNT) is defined with:
      • POS: Specifies the position on the screen (row, column).
      • LENGTH: Indicates the length of the field.
      • ATTRB: Set to UNPROT for unprotected fields so users can modify them.
      • NUMERIC: For the AMOUNT field, this indicates it's numeric and includes the number of decimal places.
Usage in CICS
  • This BMS map can be used in a CICS transaction program to display and gather input from users.
  • You would typically use CICS commands to send this map to the terminal and receive input back.
Example CICS Program Snippet
Here’s a simple snippet demonstrating how you might use this map in a COBOL program:
cobol

       EXEC CICS SEND MAP('MAP01') 
            CURSOR('02,02') 
            ENDPAGE
       END-EXEC.

       EXEC CICS RECEIVE MAP('MAP01') 
            INTO(WS-DATA) 
            LENGTH(80)
       END-EXEC.

Make sure to adjust the map and field attributes based on your specific requirements and conventions used in your organization!
*END CHATGPT OUTPUT ***





Alejandro Garcia

Barcelona


        



        
        

            

                
                

                        Em segunda-feira, 21 de outubro de 2024 às 23:37:35 GMT+2, Mike Ward <antebios1153@...> escreveu:
                    

                    


                    


                
                
                
Thanks I’ll look into it.
 ?
From: [email protected] <[email protected]> On Behalf Of botongrui, aka tsm. via 
Sent: Monday, October 21, 2024 4:16 PM
To: [email protected]
Subject: Re: [H390-MVS] CICS Map generator
 ?
>?Hello all, anyone know of a good BMS MAP generator software that’s fairly reasonable or free
 ?
This python script may be suitable depending on how complex a map you require.
 ?
 ?
Regards
botongrui
 ?
On Monday, 21 October 2024 at 21:53, Mike Ward <antebios1153@...> wrote:

Hello all, anyone know of a good BMS MAP generator software that’s fairly reasonable or free? I don’t need anything like microfocus or some other MF software vendor. Thanks ?Mike!
 ?

-- 
-- 
τσ尘 




            

        

            

        







					


				
				
				
			

			
			

	

	
			

			

				
					

				
				
			

			

				

					

				

			

			
			
			

			


				
	



			
		
			
				
	

		
			

			
			

			
			
			

				

					


						
							

								
								
							

						
					

					

						
							


						
						 
						
							
							
						
						
					

				

			

			

			

				
On internet v 2.5 and 3.0 es free by 30 days, use virtual box with. Xp and restore My xp Windows? 



				
					
					

					


El mar., 22 de octubre de 2024 6:30 a. m., jose <jose155055@...> escribió:
There other tool merant microfocus.mainframe express , there are cobol cics db2 y map generator 


El mar., 22 de octubre de 2024 3:51 a. m., Alex Garcia via  <rocral2=[email protected]> escribió:
I am sorry, maybe chatgpt didn't add LINEFEED characters, this is the map:


* Define the map
MAPNAME MAP01
????? DFHMSD TYPE=MAP,???????? * Map definition
???????????? LENGTH=80,?????? * Length of the map
???????????? NROWS=24,??????? * Number of rows
???????????? MAPSET=YOUR_MAPSET, * Define your mapset
???????????? LANGUAGE=COBOL.?? * Language

* Define the fields
CODE??? DFHMDF POS=(02,02),?? * CODE field
??????? LENGTH=10,?????????? * Length of CODE
??????? ATTRB=UNPROT.??????? * Unprotected attribute

NAME??? DFHMDF POS=(02,13),?? * NAME field
??????? LENGTH=20,?????????? * Length of NAME
??????? ATTRB=UNPROT.??????? * Unprotected attribute

REGION? DFHMDF POS=(02,34),?? * REGION field
??????? LENGTH=15,?????????? * Length of REGION
??????? ATTRB=UNPROT.??????? * Unprotected attribute

AMOUNT? DFHMDF POS=(02,50),?? * AMOUNT field
??????? LENGTH=10,?????????? * Length of AMOUNT
??????? ATTRB=UNPROT,??????? * Unprotected attribute
??????? NUMERIC=YES,???????? * Numeric field
??????? DECIMALS=2.????????? * Two decimal places

* End of map definition
DFHMSD TYPE=TERM.


Alejandro Garcia

(+34)656449946



        



        
        

            

                
                

                        Em ter?a-feira, 22 de outubro de 2024 às 09:51:54 GMT+2, Alex Garcia <rocral2@...> escreveu:
                    

                    


                    


                
                
                
It could be interesting, I am not a fan of AI tools but your demand of a tool to write CICS BMS MAPs excited my curiosity, and I tried this with  :

"build a bms map for cics with a screen size of 24 lines and 80 columns 
supporting 4 fields CODE, NAME, REGION, AMOUNT,? ?
CODE, NAME, REGION and AMOUNT unprotected
AMOUNT is numeric with 2 decimals"

The results was this, please review it, despite I learned to code CICS programs in 1983, I never was an expert, also take into account chatgpt added LENGTH and the coordinates of the fields I didn't specificy?Emoji :

*BEGIN CHATGPT OUTPUT ***
* Define the map
MAPNAME MAP01
      DFHMSD TYPE=MAP,         * Map definition
             LENGTH=80,       * Length of the map
             NROWS=24,        * Number of rows
             MAPSET=YOUR_MAPSET, * Define your mapset
             LANGUAGE=COBOL.   * Language

* Define the fields
CODE    DFHMDF POS=(02,02),   * CODE field
        LENGTH=10,           * Length of CODE
        ATTRB=UNPROT.        * Unprotected attribute

NAME    DFHMDF POS=(02,13),   * NAME field
        LENGTH=20,           * Length of NAME
        ATTRB=UNPROT.        * Unprotected attribute

REGION  DFHMDF POS=(02,34),   * REGION field
        LENGTH=15,           * Length of REGION
        ATTRB=UNPROT.        * Unprotected attribute

AMOUNT  DFHMDF POS=(02,50),   * AMOUNT field
        LENGTH=10,           * Length of AMOUNT
        ATTRB=UNPROT,        * Unprotected attribute
        NUMERIC=YES,         * Numeric field
        DECIMALS=2.          * Two decimal places

* End of map definition
DFHMSD TYPE=TERM.

Explanation of the Map
  1. MAPNAME: The name of the map is defined as MAP01.
  2. DFHMSD: This statement defines the map characteristics, such as type, length, and number of rows.
  3. Fields:
    • Each field (CODE, NAME, REGION, AMOUNT) is defined with:
      • POS: Specifies the position on the screen (row, column).
      • LENGTH: Indicates the length of the field.
      • ATTRB: Set to UNPROT for unprotected fields so users can modify them.
      • NUMERIC: For the AMOUNT field, this indicates it's numeric and includes the number of decimal places.
Usage in CICS
  • This BMS map can be used in a CICS transaction program to display and gather input from users.
  • You would typically use CICS commands to send this map to the terminal and receive input back.
Example CICS Program Snippet
Here’s a simple snippet demonstrating how you might use this map in a COBOL program:
cobol

       EXEC CICS SEND MAP('MAP01') 
            CURSOR('02,02') 
            ENDPAGE
       END-EXEC.

       EXEC CICS RECEIVE MAP('MAP01') 
            INTO(WS-DATA) 
            LENGTH(80)
       END-EXEC.

Make sure to adjust the map and field attributes based on your specific requirements and conventions used in your organization!
*END CHATGPT OUTPUT ***





Alejandro Garcia

Barcelona


        



        
        

            

                
                

                        Em segunda-feira, 21 de outubro de 2024 às 23:37:35 GMT+2, Mike Ward <antebios1153@...> escreveu:
                    

                    


                    


                
                
                
Thanks I’ll look into it.
 ?
From: [email protected] <[email protected]> On Behalf Of botongrui, aka tsm. via 
Sent: Monday, October 21, 2024 4:16 PM
To: [email protected]
Subject: Re: [H390-MVS] CICS Map generator
 ?
>?Hello all, anyone know of a good BMS MAP generator software that’s fairly reasonable or free
 ?
This python script may be suitable depending on how complex a map you require.
 ?
 ?
Regards
botongrui
 ?
On Monday, 21 October 2024 at 21:53, Mike Ward <antebios1153@...> wrote:

Hello all, anyone know of a good BMS MAP generator software that’s fairly reasonable or free? I don’t need anything like microfocus or some other MF software vendor. Thanks ?Mike!
 ?

-- 
-- 
τσ尘 




            

        

            

        









					


				
				
				
			

			
			

	

	
			

			

				
					

				
				
			

			

				

					

				

			

			
			
			

			


				
	



			
		
	

	
	
	
	


	

		
		
		
		
		
	

	

		
		
		
		
		
	

	
	

		
		
		
		
	



	

		
		
		
		
		
		
	

	

	

		

	

		

			
	
		

			
				1 - 13 of 13