Graphic Areas: Examples of displaying



TSO Programming, ISPF, SDF, SDSF and PDF, FTP, TCP/IP Concepts, SNA & SNA/IP etc...

Graphic Areas: Examples of displaying

Postby Steve Coalbran » Thu May 31, 2018 12:37 pm

Hi
I just got a request to put a GRAPHIC AREA into a panel.
Something I have never got into.
The manual is very thin on information here.
If anyone happens to have any handy examples, that I can copy and change, that would probably save me many hours?! :D
So far I got this from a TWS panel (EQQGRA3G), dumping down to the skeleton, I get…
)ATTR DEFAULT(%+_)        
 %  TYPE(TEXT)    INTENS(HIGH)  
 +  TYPE(TEXT)    INTENS(LOW)
 _  TYPE(INPUT)   INTENS(HIGH) CAPS(ON) JUST(LEFT)
*  AREA(GRAPHIC) EXTEND(ON)
)BODY EXPAND(\\)
*GAREA \ \ *
)INIT
)REINIT
 REFRESH(*)
)PROC
)END

Just need to connect it to a REXX dialog with some GR* services, GRINIT, etc? :o
Can I CALL ISPLINK from REXX (interpreted)? It looks from doing a swift RTFM that one must!?
Thanks in advance.
Steve
User avatar
Steve Coalbran
 
Posts: 138
Joined: Wed Apr 06, 2011 11:49 am
Location: Stockholm, Sweden
Has thanked: 13 times
Been thanked: 1 time

Re: Graphic Areas: Examples of displaying

Postby enrico-sorichetti » Thu May 31, 2018 1:00 pm

who will create the graphics and how ???

GRINIT is not provided by ISPF but by GDDM

research the GDDM manuals, they contain, IIRC, quite a few useful examples

also the CBT tape is worth investigating
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

These users thanked the author enrico-sorichetti for the post:
Steve Coalbran (Thu May 31, 2018 1:10 pm)
enrico-sorichetti
Global moderator
 
Posts: 2994
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 164 times

Re: Graphic Areas: Examples of displaying

Postby Pedro » Fri Jun 01, 2018 4:40 am

I got this PLI example many years ago:

CIRCLE: PROCEDURE OPTIONS(MAIN);        
 DCL AAB (2) INIT (0,0) FIXED BIN (31),                  
     ISPLINK EXTERNAL ENTRY OPTIONS (ASM,INTER,RETCODE),
     FSINR  EXTERNAL ENTRY OPTIONS (ASM, INTER, RETCODE);
 %INCLUDE SYSLIB (ADMUPIRG);                            
 AAB = 0;                                                
 CALL  ISPLINK ('GRINIT', AAB, 'CIRCLE ');            
 CALL  GSPS (AAB, 1, 1);                                
 CALL  GSSEG (AAB, 1);                                  
 CALL  GSCOL (AAB, 2);                                  
 CALL  GSAREA (AAB, 1);                                  
 CALL  GSMOVE (AAB, 50, 25);                            
 CALL  GSARC  (AAB, 50, 50, 360);                        
 CALL  GSENDA (AAB);                                    
 CALL  ISPLINK ('DISPLAY ', 'CIRCLE ');                  
 CALL  ISPLINK ('GRTERM', AAB);                          
 END CIRCLE;                                            
Pedro Vera
User avatar
Pedro
 
Posts: 684
Joined: Thu Jul 31, 2008 9:59 pm
Location: Silicon Valley
Has thanked: 0 time
Been thanked: 53 times

Re: Graphic Areas: Examples of displaying

Postby Steve Coalbran » Fri Jul 27, 2018 3:46 pm

Thanks Pedro,
This request seems to have been withdrawn.
Just as well as we don't have/use PL/1 here. Shame as it was my first language in IBM back in the day.
Years before REXX!?
REXX could do with an ADDRESS ISPLINK ? :D
Steve
User avatar
Steve Coalbran
 
Posts: 138
Joined: Wed Apr 06, 2011 11:49 am
Location: Stockholm, Sweden
Has thanked: 13 times
Been thanked: 1 time

Re: Graphic Areas: Examples of displaying

Postby Pedro » Sat Jul 28, 2018 2:06 am

I do not know if you can do the GDDM stuff in rexx.
Pedro Vera
User avatar
Pedro
 
Posts: 684
Joined: Thu Jul 31, 2008 9:59 pm
Location: Silicon Valley
Has thanked: 0 time
Been thanked: 53 times


Return to TSO & ISPF

 


  • Related topics
    Replies
    Views
    Last post