Page 1 of 1

Graphic Areas: Examples of displaying

PostPosted: Thu May 31, 2018 12:37 pm
by Steve Coalbran
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.

Re: Graphic Areas: Examples of displaying

PostPosted: Thu May 31, 2018 1:00 pm
by enrico-sorichetti
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

Re: Graphic Areas: Examples of displaying

PostPosted: Fri Jun 01, 2018 4:40 am
by Pedro
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;