Re: Specific Question/Scenario on using Pass Tickets with RACF
Robert, We use a passticket generator to solve an old phrase incompatible application login requirement. As the application do not use an APPL during identification, RACF ask for the default: MVS followed by the system's SMF ID. Worked ok, until application retirement. Regards, salva. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Examples of REXX DSNACCOX calls (DB2)
Please Binyamin, take a look for my sample SAMPLECX.rx at https://github.com/salva-rczero/Db2Functs. regards, salva. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Looking for SMF30 Programs to Identify Tasks which uses User Key Common Storage
Check this page: https://www.ibm.com/docs/en/zos/2.3.0?topic=v2r3-prepare-removal-support-user-key-common-areas -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ZD Learners Edition now available
Only available in the US. WTF! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Vector examples?
Phil, I wrote this code to compute a Modulo 11 Check Digits for banking accounts (a method widely use, al least in Europe): NCACCT,=XL16'0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F' VLV1,ACCT Load vectors: v1=account VLM V2,V3,COEF Load vectors: v2=coef,v3=zero VMLB V4,V1,V2v4=v1*v2 VSUMB V1,V4,V3v1=v4(b1+b2+b3+b4)(b5+b6+b7+b8)... VSUMGF V4,V1,V3 v4=v1(f1+f2)(f3+f4) VSUMQG V1,V4,V3 v1=v4(g1+g2) VSTEG V1,SUM,1store 2nd double LGR1,SUM r1=sum LLILL R2,11 r2=11 DSGFR R0,R2 divide r0||r1/11 LLILL R1,11 r1=11 SRR1,R0 r1=11-resto STCM R1,B'0001',RESULT save TRRESULT,=XL12'F0F1F2F3F4F5F6F7F8F9F1F0' . COEF DCXL16'0408050A01020408050A09070306' Regards, salva. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: z/PDOS
Paul, the SYSG console seems to be used with the SERVC (B220) opcode (Undocumented in the POP). Take a look to service.c in the Hercules source code. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Port availability through the Firewall
PING is the easy way. But... Ping, Tracerte and others, use ICMP messages that uses to be restricted by some admin network. If you need to check a simple IP:port, Telnet is a good choice. Check with Netstat, SDSF, Omegamon for Networks... if your socket is ESTABLISH (host reached and connected) or SYNCSENT (no response due to firewall or routes issues). -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DB2 rerunning install clist when applying maintenance
UPDATE! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Export SMS Constructs to CSV File
Look at DCOLLECT. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: PPFA
Alan, if your friend want to change the logo, PPFA has nothing to do. OGL generate the Overlay (O1) that references the Page Segment (S1). -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: How to upload 600 files from PC to Mainframe
Lizette, does the user has access to omvs? - zip the files on workstation - upload with ind$file - oput to directory - unzip with gzip/unzip/jar - oget each file to dataset -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Contents of TOD Programmable Field under z/OS?
Peter, Cobol UUID4 (available in 6.3) had a horrible performance on a z13. In z15, the performance is excellent. We opened a SR and they tell us about the random number generator. If you can't wait and have Db2, I wrote a Db2 Funct to generate UUID based on TOD. It is available in https://github.com/salva-rczero/Db2Functs regards, salva. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Contents of TOD Programmable Field under z/OS?
Peter, GENERATE UNIQUE Db2 function, warrants the uniqueness aceoss a Sysplex and it is based on TODE. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Contents of TOD Programmable Field under z/OS?
Paul, CPC 1 & 2 are in different rooms. I think Einstein's relativity effects will be greater than TOD last bits counter. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Contents of TOD Programmable Field under z/OS?
Peter, from my Sysplexex (two CPC, two Sysplexes): Sysplex 1: LPAR1 - CPC 1 - 00D96E2471DF1F55880008040001 LPAR2 - CPC 1 - 00D96E2543F30EBBA20008040003 LPAR1 - CPC 2 - 00D96E24D3FB3288420008040002 LPAR2 - CPC 2 - 00D96E25612D8B3846000804 Sysplex2: LPAR3 - CPC 1 - 00D96E25A47E64BAC801 LPAR4 - CPC 2 - 00D96E25CB7002F3C40008080002 Last byte match the first byte from SYSTEM NUMBER output of DISPLAY XCF,SYSPLEX,ALL. No idea about bytes 29, 30 & 31. Regards, salva. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Contents of TOD Programmable Field under z/OS?
Afaik unique to the LPAR & Sysplex. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: LISTCAT output information in XML or JSON
Yes John. UDTF is a Db2 User Defined Table Function. You can have a look at my Db2Functs repository in github: https://github.com/salva-rczero Regards, salva. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: LISTCAT output information in XML or JSON
I wrote an assembler UDTF for Db2 that retrieve list of cataloged datasets based on mask/type using the CSI. Can share it if you are interested. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Learning the basics of SMP/E
I use to include: CSI and SMP*, Targets, Dlibs and any othes librarys, datasets & Vsam for the product. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Learning the basics of SMP/E
The basic of SMP/E is: make a full backup first. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Disassemble an object deck
TSO TEST & ISRDDN may be usefull for simple cases. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Broadcom CA prices
Having trouble with AC renewal pricing? They ask us for +200% (x3). -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Looking for a security solution (http and batch jobs)
Use the Web Client Enablement Toolkit. Available for high level languages, assembler & Rexx. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: INTRDR and submitted JobID
Not yet: DML was expanded to 8 char. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IBM splitting into two companies
Well not 16, but we run 10-12 trans per real client every day. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: syslogd configuration questions regarding splitting out logging
Hi. When you connect to ftp server, ftpd1 spawn a ftpd2, 3, 4... or _bpx_jobname if configured. As soon as the user/pwd is entered and verified the (same) address space is renamed to userid-n. This is the reason why you see the majority of messages in tcpip.log instead ftp.log. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Can you set a FIXED dispatching priority using WLM?
No, but setting the SRVCLASS as CPU CRITICAL is very similar. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Ransoming a mainframe disk farm
Use DS8880 SafeGuardCopy -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: zIIP MultiThreads
We see 1.3 on peak hours. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Is there a tool to monitor JES2 Input Queue wait time?
Write your own using SDSF/Rexx. Really simple, I wrote some of them to get real time data. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: zSeries and using cloud for backups
AFIK - TS77x0C feature - DS88XX feature - z/OS Cloud Tape Connection Software - HSM option - DFSMS OAM Cloud Stogroup -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Web enabled ISPF Application
Lionel, we have some ISPF rexx Web enabled using ISPF Gateway. Apache + cgi rexx + ispf gtw + ispf rexx 1. Logon usr/pwd/tls done by Apache IHS 2. No screen conversion: if native then ispexec display else return html data. 3. cgi rexx parse & call gtw 4. one shoot run. If you need persistent data between call save on cookie or hidden html input. . .. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Get userid from console modify
Hi Frank, I'm Salva Carrasco. Nice to ear my old code is working elsewhere. You are correct, the CIBXUTOK is fetch protected & encrypted. You can't see the userid from unauthorized code. As a workaround for EMCS, we only permit (CONSOLE CLASS) users to open console with their own username + 1 char. And the console name is available in CIBXCNNM. Regards, salva. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SQL query interface for catalogs?
I wrote a UDTF for Db2 interfacing the CSI and it works fine. But, Db2 is really annoying with user defined functions: -UDTF: only in Assembler or C. -Generic UDTF: only in C. -Parm list for UDF is weird: no number of parm -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Container pricing
We went to dev container 6 month ago. Now we have x2 capacity for the same price (only MLC, OTC is the same). -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: WLM Exit Samples
Have you try DGAXWLMX? What do you want to do with the exit? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Tracking called (non-main) programs using SMF records
My two cents: - Update every program to make a trace call. I'll prefer General tracking facility than Generic Trace. - http://www.longpelaexpertise.com.au/ezine/SoftwareUsageWithoutTADz.php -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Improving the performance of an ISPF app using OMVS services (bpxwunix)
As i remember: ispf/rexx spawn a java that redirect stdin/stdout to unix pipes filetypes. Rexx open the pipes with syscall functions. Send request to stdin & receive response from stdout, with a start/end of response known protocol. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Improving the performance of an ISPF app using OMVS services (bpxwunix)
Hi Lionel. Have you tried bpx_shareas in the env. stem passed to BPXWUNIX? Are you running a unix command or starting a shell script? Is your command "apf"? Some time ago, I was working in a similar issue: Ispf calling Java. The creation of the JVM was really heavy, so we changed java code to accept subcommand from stdin, "forked" it and communicate with the Ispf/Rexx code using pipes. Regards, and good luck with zigi. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Can you update WLM via a batch program?
Check IWMINSTL at SYS1.SAMPLIB. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Intel Chip flaw
Are zArch CPUs free of these attacks? any IBM info? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Unable to resolve server name function= GETADDRINFO
Alloc a SYSTCPT sysout to see the resolver trace. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: dynamic rexx function package
I think it is not documented, but must exits. You can use IRXFLOC, an empty one in LINKLIB. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Enterprise COBOL V6.2
Another versión? wasn't it continuos delivery? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: how to suppress the message IEF196I
If you have millions of it from WLM initiator, may be you aren't reusing the WLM initiator address space. Check your settings. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: REXX procedure needed
May be rxstor/rxstor64 from Mark Zelden? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Subsystem function code 16, 17, 18, and 19
I wrote a subsystem for these functions a lot of years ago. It was a pain and undocumented task. Take a look to GPSAM in CBT file 290. Not mine, but I inspired from it. regards, salva. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: A further question regarding COBOL5 and CEEDUMP
When we started 5.1 migration, we obtained the Local-variables CEEDUMP for batch but not for CICS. I remember opened a PMR and the issue was the lack of SYS1.CCSLIB in RPL concatenation. Check it in LNKLST & RPL. Regards, salva. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: z/OS 2.2 SMF record corrupted
> How did you find it out? Experiencing abends with SMF processing jobs or > having problems with Logstreams? > Or just simply excellent eye-balling the records? >I see you have posted a sample SMF record 80, is that field SMF80USR? (offset >19 as per your post) No abends or errors. An in-house Rexx failed when reading SMF14, 61, ... And a RACF Audit Report was showing incorrect value at the first username char on some lines. (The Apar is now available for registered users: https://www-304.ibm.com/support/entdocview.wss?uid=isg1OA51823) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: z/OS 2.2 SMF record corrupted
After a long investigation, IBM has found an error when the SMF LogStream structure is defined with MAXBUFSIZE < 64K in z/OS 2.2. Pending OA51823 APAR. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
z/OS 2.2 SMF record corrupted
Hi all. SMF record corrupted at offset x16, high order bit zeroed, in (almost) types: 4, 14, 15, 20, 61, 62, 65, 64, 66, 80, 208, 241. Sample (E7 become 67 at offset 19): +1+2+ & ¢ BCARXPRODPL 1500B10131CCCD2000EDDDCDD E0060B165F231980507796473 +1+2+ & ¢ BCARÅPRODPL 1500B20131CCCD20006DDDCDD E00600165F231980507796473 - z/OS 2.2 - SMF using LogStream (no problem when SYS1.MANx is used) - Only some record affected, others looks fine. - No extra software, Exits, hooks, ... - Same problem from RSU1512 to RSU1610. I opened a PMR, IBM is working on it. Can anybody check their records? Thanks in advance. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: High CPU in JES2 at z/OS 2.2 OA50777
We reported the same issue. Waiting for PTF for 20-26 aug. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: HISreport on z/OS 2.2
1) No, zEC12 inside. Work fine from 1.13 lpar. 2) Half the day, nothing found. 3) HISreport was a freebie written in java from www.alphaworks.ibm.com circa 2010. The page does not exits anymore. Fearing to write my own. Ouch!!! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
HISreport on z/OS 2.2
Hi. The format of HIS map files (.MAP) have changed from 1.13 to 2.2. (8 to 16 address length) The sample HISreport_20101110 fails to generate the report. Does anyone know if there are a new version? I can't find it. Thanks. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
IBM Knowledge Center broken on IE
Since last Monday, IBM Knowledge Center is broken for IE10/IE11, Firefox looks fine. Anyone else? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Migration to Enterprise COBOL V5.2
- Yes, ARCH(11) for z13 - We found a program (only one) that needed 1.7GB to compile. And a lot of them requiring up to 600MB. So we use REGION=0M & IEFUSI. - CANCEL sentence when mixing 4.2 & 5.2 do not free used memory under certain circumstances. We opened some PMR about this, but still having some issues. - STRING 'PREFIX' DATA DELIMITED BY SIZE INTO DATA, give 'PREFIXPREFIXPREFIX...' in 5.2 'PREFIXOLD DATA' in 4.2. Although prohibited, we had some cases. - IF FIELD = ZERO, for FIELD = low-values. Thanks. salva. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Migration to Enterprise COBOL V5.2
- Test(DWARF): Increase size in library but not in memory, debug data is only loaded at error/abend time. - Best CPU usage if using Arch(9/10) on execution. - Worst compile CPU/Time/Storage. REGION=0M, IEFUSI, ... - Take an eye on latest maintenance, specially LE. - Be aware of Arch level for your BRS site. - Be aware of CANCEL sentence for mixed 4.2 & 5.2 Cobol load modules. . Be aware of STRING sentence when using same source & target data field. - Be aware of low-values decimal zones. IF FIELD = ZERO, false for 4.2, true for 5.2. Look at ZONEDATA *new* option. Good look. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: any need?
No member of Share. Can anybody get me any clue about this? I cant find any reference in z/OS 2.2 books. Thanks. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: any need?
Any news about this? can't find any reference. Thanks. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: The Linklist
TSO ISRDDN LOAD >>> LOADED FROM . -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: $TJOBCLASS(x),XEQMEMBER(xxxx)=MAX=0. Why not?[SEC=UNOFFICIAL]
Same msg. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: $TJOBCLASS(x),XEQMEMBER(xxxx)=MAX=0. Why not?
Good for me, thanks. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
$TJOBCLASS(x),XEQMEMBER(xxxx)=MAX=0. Why not?
$TJOBCLASS(T),XEQMEMBER(V341)=MAX=0 returns: /HASP003 RC=(08),T /HASP003 RC=(08),T JOBCLASS(T) XEQMEMBER(V341) MAX - VALUE IS /HASP003 OUTSIDE NUMERICAL RANGE, RANGE IS /HASP003 (1-4294967295) Why? Is it a bug? Another approach to stop a specific WLM class in a member? Thanks groups. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
FTP using Proxy
Hi guys, I'm trying to use the standard z/os Comm Server ftp client to download a file from the internet traversing a CERN http proxy (Microsoft ISA). I've tested a lot of combinations: proxy quote site dest.host user pass proxy 8080 u...@dest.host pass etc... Any works, clues? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
LCCAWTIM for a ZIIP
Hi list, I'm having a problem looking at LLCAWTIM for a ZIIP core. Currently my test system have been up for 4.5 days, so: Current_TOD - IPAILTOD = 0005C8961CAFC6C0 LCCAWTIM for CP0 = 00033B94B019440C, so this Cpu use = 44.1% LCCAWTIM for CP1 = 0002F2138BA76822, so this Cpu use = 49.1% LCCAWTIM for CP2 (ziip) = 0005CD2ECC2A3400, so this Cpu use = -0.3% ?? If a look for shorter periodos I get (eventually) large negatives values for the ziip. What is my misunderstanding? Thanks list. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: PCOMM copy-paste (quite another issue)
Hi Radoslaw,
I found your post about APL char and PCOMM copy/paste, because I've the same
problem, specially with ISPF and Omegamon screens. But no solution was
provided. After some googling and IBM's infocenter reading, I became to the
conclusion that it was not possible, so I decided to work about it.
In the first approach I learned (not documented) that the APL attribute was in
the EXTFIELD Plane last bit. This plane is not available for standard APIs (VB,
Macro, ...), but yes for the HACL (Java and C). I tried C, but the API only
compiles with MS Visual C and IBM visual studio. So I went to java. I spent two
days until I learned that it only works if compiled with an old Java SDK
(1.4.2). Finally I created a simple macro [Run Applet] CopyApl.class that
runs the applet and assigned it to a key.
In PCOMM 5.9, the process pcscm.exe enter in a loop and your session (TN3270)
become very slow. I installed 5.9.7 and now works fine.
The program is not completed, it only translate a few APL chars (box drawing).
It leaves unicode text in the system clipboard. If you're using Lotus Notes,
paste it with Courier New font. Does not ask why i'm using (rows*cols)+1, i do
not understand but it works. Select show console in run applet menu for
debugging. Feedback wellcome.
Regards, Salva.
The code:
import com.ibm.eNetwork.ECL.*;
import java.awt.Toolkit;
import java.awt.datatransfer.Clipboard;
import java.awt.datatransfer.StringSelection;
public class CopyApl implements ECLAppletInterface {
ECLPS ps = null;
public CopyApl() {
}
public void init(ECLSession session) {
ps = session.GetPS();
int rows = ps.GetSizeRows();
int cols = ps.GetSizeCols();
char[] bufferT = new char[(rows*cols)+1];
char[] bufferX = new char[(rows*cols)+1];
try {
ps.GetScreen(bufferT,(rows*cols)+1,ECLConstants.TEXT_PLANE);
ps.GetScreen(bufferX,(rows*cols)+1,ECLConstants.EXFIELD_PLANE);
} catch (ECLErr e) { System.out.println(e.GetMsgText()); }
int i;
int col = cols;
char c;
String so = ;
for(i=0;irows*cols;i++) {
if(i==col) {
so = so + \n;
col+=cols;
}
c = bufferT[i];
if ((bufferX[i] (char)0x01) == (char)0x01) {
switch (c) {
case 's': so = so + \u2500; break;
case 'e': so = so + \u2502; break;
case '×': so = so + \u2502; break;
case 'E': so = so + \u250c; break;
case 'N': so = so + \u2510; break;
case 'P': so = so + \u252c; break;
case 'F': so = so + \u251c; break;
case 'G': so = so + \u2534; break;
case 'L': so = so + \u253c; break;
case 'O': so = so + \u2524; break;
case 'M': so = so + \u2518; break;
case 'D': so = so + \u2514; break;
case 'n': so = so + \u2588; break;
case 'H': so = so + \u00a7; break;
case '±': so = so + \u2192; break;
default: so = so + c; break;
}
}
else so = so + c;
}
System.out.print(so);
Toolkit toolkit = Toolkit.getDefaultToolkit();
Clipboard clipboard = toolkit.getSystemClipboard();
StringSelection strSel = new StringSelection(so);
clipboard.setContents(strSel, null);
toolkit.beep();
}
}
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: PCOMM copy-paste (quite another issue)
The compile command, (from the private directory): javac -classpath ..\pcseclj.jar CopyApl.java -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
