Re: Assembler code

[David Crayford]

It's a routine to TEST, SET, AND, OR, XOR a byte. I would imagine it's 
for manipulating flag bytes in a language that doesn't support bitwise 
operations (COBOL).


On 29/04/2013 1:35 PM, Ron Thomas wrote:

Hi. Could someone let me know what the below assembler code is doing?

PNBITMSK AMODE 31
PNBITMSK RMODE ANY
PNBITMSK CSECT
  USING *,R15
  STM   R14,R12,12(R13)
**
*
**
  L R2,0(R1)
  L R3,4(R1)
  USING WORKPARM,R3
  MVI   CONDCODE,C'4'
  MVC   BUILDUP,BLD#INIT
  LAR4,FCTN#TAB-4
VFY@FCTN DS0H
  LAR4,4(R4)
  CLI   0(R4),X'FF'
  BERETURN
  CLC   FCTN,0(R4)
  BNE   VFY@FCTN
  MVC   INSTR1(1),3(R4)
  LAR4,MASK-1
  LAR5,BIT#VAL-1
  LAR6,8
BLD@MASK DS0H
  LAR4,1(R4)
  LAR5,1(R5)
  CLI   0(R4),C'1'
  BNE   *+10
  OCINSTR1+1(1),0(R5)
  BCT   R6,BLD@MASK
*
  BAL   R7,BUILDUP
*
  BCB'1000',CC#0
  BCB'0100',CC#1
  BCB'0010',CC#2
CC#3 MVI   CONDCODE,C'3'
  B RETURN
CC#2 MVI   CONDCODE,C'2'
  B RETURN
CC#1 MVI   CONDCODE,C'1'
  B RETURN
CC#0 MVI   CONDCODE,C'0'
**
*RETURN
**
RETURN   DS0H
  LMR14,R12,12(R13)
  SRR15,R15
  BRR14
**
*PROGRAM CONSTANTS
**
FCTN#TAB DS0F
  DCCL3'TM ',XL1'91'
  DCCL3'NI ',XL1'94'
  DCCL3'CLI',XL1'95'
  DCCL3'OI ',XL1'96'
  DCCL3'XI ',XL1'97'
  DCXL1'FF'
*
BIT#VAL  DCXL8'804020100804020
*
BLD#INIT DS0H
  OI0(R2),X'00'
  BRR7
*
  LTORG ,
**
* REGISTER EQUATES.
**
R0   EQU   0
R1   EQU   1
R2   EQU   2
R3   EQU   3
R4   EQU   4
R5   EQU   5
R6   EQU   6
R7   EQU   7
R8   EQU   8
R9   EQU   9
R10  EQU   10
R11  EQU   11
R12  EQU   12
R13  EQU   13
R14  EQU   14
R15  EQU   15
*
WORKPARM DSECT
  DS0F
BUILDUP  DS0CL6
INSTR1   DSCL4
INSTR2   DSCL2
FCTN DSCL3
MASK DSCL8
CONDCODE DSCL1
*
  END   PNBITMSK

Thanks,
Ron T

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Assembler code

[Ron Thomas]

Hi. Could someone let me know what the below assembler code is doing?

PNBITMSK AMODE 31 
PNBITMSK RMODE ANY
PNBITMSK CSECT
 USING *,R15  
 STM   R14,R12,12(R13)
**
* 
**
 L R2,0(R1)   
 L R3,4(R1)   
 USING WORKPARM,R3
 MVI   CONDCODE,C'4'  
 MVC   BUILDUP,BLD#INIT   
 LAR4,FCTN#TAB-4  
VFY@FCTN DS0H 
 LAR4,4(R4)   
 CLI   0(R4),X'FF'
 BERETURN 
 CLC   FCTN,0(R4) 
 BNE   VFY@FCTN   
 MVC   INSTR1(1),3(R4)
 LAR4,MASK-1  
 LAR5,BIT#VAL-1   
 LAR6,8   
BLD@MASK DS0H 
 LAR4,1(R4)   
 LAR5,1(R5)   
 CLI   0(R4),C'1' 
 BNE   *+10   
 OCINSTR1+1(1),0(R5)  
 BCT   R6,BLD@MASK
* 
 BAL   R7,BUILDUP 
* 
 BCB'1000',CC#0   
 BCB'0100',CC#1   
 BCB'0010',CC#2   
CC#3 MVI   CONDCODE,C'3'  
 B RETURN 
CC#2 MVI   CONDCODE,C'2'  
 B RETURN 
CC#1 MVI   CONDCODE,C'1'  
 B RETURN 
CC#0 MVI   CONDCODE,C'0'  
**
*RETURN   
**
RETURN   DS0H 
 LMR14,R12,12(R13)
 SRR15,R15
 BRR14
**
*PROGRAM CONSTANTS
**
FCTN#TAB DS0F 
 DCCL3'TM ',XL1'91'   
 DCCL3'NI ',XL1'94'   
 DCCL3'CLI',XL1'95'   
 DCCL3'OI ',XL1'96'   
 DCCL3'XI ',XL1'97'   
 DCXL1'FF'
* 
BIT#VAL  DCXL8'804020100804020
* 
BLD#INIT DS0H 
 OI0(R2),X'00'
 BRR7 
* 
 LTORG ,  
**
* REGISTER EQUATES.   
**
R0   EQU   0  
R1   EQU   1  
R2   EQU   2  
R3   EQU   3  
R4   EQU   4  
R5   EQU   5  
R6   EQU   6  
R7   EQU   7  
R8   EQU   8  
R9   EQU   9  
R10  EQU   10 
R11  EQU   11 
R12  EQU   12 
R13  EQU   13 
R14  EQU   14 
R15  EQU   15 
* 
WORKPARM DSECT
 DS0F 
BUILDUP  DS0CL6   
INSTR1   DSCL4
INSTR2   DSCL2
FCTN DSCL3
MASK DSCL8
CONDCODE DSCL1
* 
 END   PNBITMSK   

Thanks,
Ron T

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Crypto Facility performance.

[Timothy Sipples]

ICSF would be the way to go in terms of maintainability, serviceability,
and related concerns.

I think ICSF allows querying for supported algorithms/hardware to allow
fallback to algorithms that your customer is capable of running. Thus you
should be able to use ICSF to create a program that can run any hardware,
taking exploiting particular customer hardware options should they have
them. (Or maybe ICSF handles those details for you automatically, at least
for certain algorithms.) That's part of the value of ICSF, to abstract from
the underlying hardware details that can vary.


Timothy Sipples
GMU VCT Architect Executive (Based in Singapore)
E-Mail: sipp...@sg.ibm.com
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Packed decimal and sign nibble

[Ed Gould]

Shmuel:

This goes back quit a while but I will try and justify it.
I think the edit mask was 40202020214B2020 (example the 21 forced a  
period before any numbers)
my memory says (and I might be wrong)  that the last character was  
say a 9C (by inserting a 0F ) it just worked.
The displayed field as a result of the ed would not print as a 9 (but  
I will be honest and say I don't remember) but that is how I was  
taught (and that may have been wrong).
I will have to play around with it when it get some time next time I  
am in programming mode.

Ed


On Apr 27, 2013, at 9:33 PM, Shmuel Metz (Seymour J.) wrote:


In <7af8ccb6-d40a-432a-bb31-3a7a50076...@comcast.net>, on 04/26/2013
   at 01:51 PM, Ed Gould  said:


The way I remember dealing with the "c" was to do on OI
packed+4,x'0F' It was SOP to do so on all packed fields before
preparing them to ED.


Why? ED doesn't distinguish between C and F. I can understand the OI
prior to an UNPK of a value known to never be negative.

--
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 Atid/2
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: JCL statements and symbolics - Dates

[Paul Gilmartin]

On Fri, 26 Apr 2013 12:49:29 -0700, Sri h Kolusu wrote:
>
>You can use the symbol translator utility, EZACFSM1, to translate the
>symbols before the JCL execution and submit the job via INTRDR. Here is an
>example.
> 
The only documentation I can find on this is in

Title: z/OS V1R13.0 Comm Svr: IP Configuration Guide
Document Number: SC31-8775-20

Surely there's more somewhere? Required JCL?  Data sets?  Input and output 
format?

It does say:

   | Restriction: The record length of the input file cannot exceed 80 bytes. 

Which appears to be only partly true.  It seems to accept longer records
but only resolve symbols appearing in the first 80 bytes.

Does this have a priced TCP/IP product as a prerequisite?

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Packed decimal and sign nibble

[Shmuel Metz (Seymour J.)]

In <7af8ccb6-d40a-432a-bb31-3a7a50076...@comcast.net>, on 04/26/2013
   at 01:51 PM, Ed Gould  said:

>The way I remember dealing with the "c" was to do on OI
>packed+4,x'0F' It was SOP to do so on all packed fields before
>preparing them to ED.

Why? ED doesn't distinguish between C and F. I can understand the OI
prior to an UNPK of a value known to never be negative.

-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 Atid/2
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: JCL statements and symbolics - Dates

[Shmuel Metz (Seymour J.)]

In <00e401ce42af$485d09d0$d9171d70$@mindspring.com>, on 04/26/2013
   at 11:53 AM, Lizette Koehler  said:

>Are there symbolics in the z/OS V1.12 system that is available to the
>batch JCL during conversion? 

You can get a similar effect with job tracking software, which
typically includes its own variable substitution. When do you expect
to be on z/OS V2?

>I am not looking to create a REXX or CLIST to submit the job to put
>in the date and time.

How about a REXX to use ISPF table services for the purpose?

-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 Atid/2
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SMP/E vs. Multi-CSECT MOD Elements?

[Paul Gilmartin]

Way back, On Mon, 5 Dec 2011 09:50:59 -0500, Kurt Quackenbush wrote:
>
>> In the extreme, what happens if two or more MOD elements
>> contain an identical CSECT?
>
>Without a more specific description of the scenario its hard to say, but
>as you surmise, this could get interesting.
> 
When I asked this, back then, I thought the question was largely academic.
But I discovered in the past week that we are entangled with a fourth-party
SMP/E-clueless (but very helpful -- they have accommodated all our
requirements -- we just never thought to require that CSECTs not be
duplicated in multiple MOD elements) who delights in replicating
CSECTS among multiple MOD elements intended for redistribution to
our customers.  They say, "It doesn't matter; Binder will sort out and
eliminate duplicates."  But Bad Things happen when I attempt to RESTORE
some PTFs.

Fortunately, as far as I see, when two MOD elements share a CSECT they
are entirely identical -- the internal time stamps and even MD5 checksums
match.

So, I decided to try to clean up the (few) instances that have escaped to
the field with a PTF (abridged):

++ PTF ...
++ MOD( BADMOD ) CSECT( TOM DICK HARRY) DELETE .
++ JCLIN
//STEP  EXEC  PGM=IEWL
//SYSLIN  DD  *
  INCLUDE DLIB(GOODMOD)
  NAME LOADMOD(R)
++ MOD( GOODMOD ) CSECT( TOM DICK HARRY ) .
(inline MOD element body)

When I APPLYed that PTF, SMP/E generated commands in SYSLIN:

  REPLACE TOM
  REPLACE DICK
  REPLACE HARRY
  INCLUDE  SYSLMOD(LOADMOD)
  NAME  LOADMOD(R)

it did _not_ generate an INCLUDE for GOODMOD even though the JCLIN
should have added to its MOD entry an LMOD subentry for LOADMOD and
MOD element GOODMOD was delivered in the PTF.  And I got UNRESOLVED
for all the labels in TOM, DICK, and HARRY.

Ouch!

Like any incredulous user, I tried to APPLY the same PTF a second time.
This time, SMP/E generated as SYSLIN:


  INCLUDE  DLIB(GOODMOD)
  INCLUDE  SYSLMOD(LOADMOD)
  NAME  LOADMOD(R)

No REPLACE commands; no UNRESOLVED labels!

Is this WAD?

I'm somewhat reluctant to deliver the PTF and tell our
customers, "We have a lurking pitfall.  To clean it up, you
must APPLY this PTF.  Twice!"

Is there a less bizarre way to accomplish this?

What SMP/E could do to most help us ISVs avoid this pitfall
is to report a serious error when we name any CSECT in
two or more MOD elements.

Thanks,
gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: formatting control blocks

[Scott Ford]

I happened across this sometime ago.

http://www.longpelaexpertise.com.au/


Scott ford
www.identityforge.com
from my IPAD

'Infinite wisdom through infinite means'


On Apr 28, 2013, at 6:49 AM, Miklos Szigetvari 
 wrote:

>Hi
> 
> Don't see too many suggestions, I'm interested also.
> - I looked the IPCS control block formatting macros, I don't like them too 
> much
> - We are working with C/C++ ,and the IBM DSECT2C utility can generate C 
> structures from DSECTs,  we are using  this in our C code.
> - The DSECT2C utility and the other product , can do this, taking the input 
> from the HLASM ADATA files
> 
> 
> On 26.04.2013 17:48, Gary Weinhold wrote:
>> I'm looking for a public domain control block formatting tool that will 
>> display memory formatted with the information from a non-IBM assembler 
>> DSECT.  I realize that there are a couple of CBT files that probably include 
>> this capability, but I'd appreciate any experiences regarding ease of use or 
>> limitations before investing too much time.
>> 
>> Gary Weinhold
>> 
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> 
> 
> -- 
> Kind regards, / Mit freundlichen Grüßen
> Miklos Szigetvari
> 
> Research&  Development
> ISIS Papyrus Europe AG
> Alter Wienerweg 12, A-2344 Maria Enzersdorf, Austria
> T: +43(2236) 27551 333, F: +43(2236)21081
> E-mail: miklos.szigetv...@isis-papyrus.com
> Info: i...@isis-papyrus.com Hotline: +43-2236-27551-111
> Visit our brand new extended Website at www.isis-papyrus.com
> ---
> This e-mail is only intended for the recipient and not legally
> binding. Unauthorised use, publication, reproduction or
> disclosure of the content of this e-mail is not permitted.
> This email has been checked for known viruses, but ISIS Papyrus accepts
> no responsibility for malicious or inappropriate content.
> ---
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: formatting control blocks

[Todd J. Gagle]

Gary,

I know that you are looking for a public domain formatting tool. Not a public 
domain product, but the CA SYSVIEW product provides the function that you are 
looking for. Any DSECT, IBM or not can be assembled. Multiple DSECTs can be 
assembled at one time. The ADATA is captured and used to format virtual 
storage. The mapping DSECT can be displayed raw or used to map any piece of 
virtual storage. So, if you happen to be a user of SYSVIEW, you are in luck.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Crypto Facility performance.

[Scott Ford]

RS,

Sure will take a look,Ty...this design wasn't mine so I an open to new designs 
and comments.
My preference is easier the better to support, for sure.

Scott ford
www.identityforge.com
from my IPAD

'Infinite wisdom through infinite means'


On Apr 28, 2013, at 9:47 AM, "R.S."  wrote:

> W dniu 2013-04-28 14:38, Scott Ford pisze:
>> RS,
>> 
>> We use our own encryption routines ..I was wondering if I could make
>> use of crypto cards, I am not familiar with them because we develop
>> on Z/Pdt ...
> 
> Well, first you should look at the following manual:
> ICSF Application Programmer's Guide SA22-7522
> You'll find there are supported crypto services with required hardware 
> annotations. For real mainframe (contemporary models) your options will be 
> CPACF and optionally (paid option) CryptoExpress cards.
> Then you can compare your routines to those available in ICSF and decide what 
> can be used. BTW: Some ICSF routines are available without any crypto 
> hardware.
> 
> 
> -- 
> Radoslaw Skorupka
> Lodz, Poland
> 
> 
> 
> 
> 
> 
> --
> Treść tej wiadomości może zawierać informacje prawnie chronione Banku 
> przeznaczone wyłącznie do użytku służbowego adresata. Odbiorcą może być 
> jedynie jej adresat z wyłączeniem dostępu osób trzecich. Jeżeli nie jesteś 
> adresatem niniejszej wiadomości lub pracownikiem upoważnionym do jej 
> przekazania adresatowi, informujemy, że jej rozpowszechnianie, kopiowanie, 
> rozprowadzanie lub inne działanie o podobnym charakterze jest prawnie 
> zabronione i może być karalne. Jeżeli otrzymałeś tę wiadomość omyłkowo, 
> prosimy niezwłocznie zawiadomić nadawcę wysyłając odpowiedź oraz trwale 
> usunąć tę wiadomość włączając w to wszelkie jej kopie wydrukowane lub 
> zapisane na dysku.
> 
> This e-mail may contain legally privileged information of the Bank and is 
> intended solely for business use of the addressee. This e-mail may only be 
> received by the addressee and may not be disclosed to any third parties. If 
> you are not the intended addressee of this e-mail or the employee authorised 
> to forward it to the addressee, be advised that any dissemination, copying, 
> distribution or any other similar activity is legally prohibited and may be 
> punishable. If you received this e-mail by mistake please advise the sender 
> immediately by using the reply facility in your e-mail software and delete 
> permanently this e-mail including any copies of it either printed or saved to 
> hard drive. 
> BRE Bank SA, 00-950 Warszawa, ul. Senatorska 18, tel. +48 (22) 829 00 00, fax 
> +48 (22) 829 00 33, www.brebank.pl, e-mail: i...@brebank.pl
> Sąd Rejonowy dla m. st. Warszawy XII Wydział Gospodarczy Krajowego Rejestru 
> Sądowego, nr rejestru przedsiębiorców KRS 025237, NIP: 526-021-50-88. 
> Według stanu na dzień 01.01.2013 r. kapitał zakładowy BRE Banku SA (w całości 
> wpłacony) wynosi 168.555.904 złotych.
> 
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Crypto Facility performance.

[R.S.]

W dniu 2013-04-28 14:38, Scott Ford pisze:

RS,

We use our own encryption routines ..I was wondering if I could make
use of crypto cards, I am not familiar with them because we develop
on Z/Pdt ...


Well, first you should look at the following manual:
ICSF Application Programmer's Guide SA22-7522
You'll find there are supported crypto services with required hardware 
annotations. For real mainframe (contemporary models) your options will 
be CPACF and optionally (paid option) CryptoExpress cards.
Then you can compare your routines to those available in ICSF and decide 
what can be used. BTW: Some ICSF routines are available without any 
crypto hardware.



--
Radoslaw Skorupka
Lodz, Poland






--
Treść tej wiadomości może zawierać informacje prawnie chronione Banku 
przeznaczone wyłącznie do użytku służbowego adresata. Odbiorcą może być jedynie 
jej adresat z wyłączeniem dostępu osób trzecich. Jeżeli nie jesteś adresatem 
niniejszej wiadomości lub pracownikiem upoważnionym do jej przekazania 
adresatowi, informujemy, że jej rozpowszechnianie, kopiowanie, rozprowadzanie 
lub inne działanie o podobnym charakterze jest prawnie zabronione i może być 
karalne. Jeżeli otrzymałeś tę wiadomość omyłkowo, prosimy niezwłocznie 
zawiadomić nadawcę wysyłając odpowiedź oraz trwale usunąć tę wiadomość 
włączając w to wszelkie jej kopie wydrukowane lub zapisane na dysku.

This e-mail may contain legally privileged information of the Bank and is intended solely for business use of the addressee. This e-mail may only be received by the addressee and may not be disclosed to any third parties. If you are not the intended addressee of this e-mail or the employee authorised to forward it to the addressee, be advised that any dissemination, copying, distribution or any other similar activity is legally prohibited and may be punishable. If you received this e-mail by mistake please advise the sender immediately by using the reply facility in your e-mail software and delete permanently this e-mail including any copies of it either printed or saved to hard drive. 


BRE Bank SA, 00-950 Warszawa, ul. Senatorska 18, tel. +48 (22) 829 00 00, fax 
+48 (22) 829 00 33, www.brebank.pl, e-mail: i...@brebank.pl
Sąd Rejonowy dla m. st. Warszawy XII Wydział Gospodarczy Krajowego Rejestru Sądowego, nr rejestru przedsiębiorców KRS 025237, NIP: 526-021-50-88. 
Według stanu na dzień 01.01.2013 r. kapitał zakładowy BRE Banku SA (w całości wpłacony) wynosi 168.555.904 złotych.



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Crypto Facility performance.

[Scott Ford]

No excuses here ...just curious 

Scott ford
www.identityforge.com
from my IPAD

'Infinite wisdom through infinite means'


On Apr 28, 2013, at 9:10 AM, Scott Ford  wrote:

> Phil,
> 
> No excuse lie that ...I wasn't sure dude ...so now I can experiment and find 
> out ...love it
> 
> Scott ford
> www.identityforge.com
> from my IPAD
> 
> 'Infinite wisdom through infinite means'
> 
> 
> On Apr 28, 2013, at 8:50 AM, Phil Smith  wrote:
> 
>> Scott Ford wrote:
>>> We use our own encryption routines ..I was wondering if I could make use of 
>>> crypto cards, I am not familiar with them because we develop on Z/Pdt ...
>> 
>> That's "zPDT". And it does full CEX emulation, I believe, so that's actually 
>> no excuse :)
>> 
>> You can call the CPACF instructions yourself. You can also call ICSF (if 
>> it's running), and as long as the function you call doesn't *require* a CEX 
>> it will work.
>> 
>> ...phsiii
>> 
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Crypto Facility performance.

[Scott Ford]

Phil,

No excuse lie that ...I wasn't sure dude ...so now I can experiment and find 
out ...love it

Scott ford
www.identityforge.com
from my IPAD

'Infinite wisdom through infinite means'


On Apr 28, 2013, at 8:50 AM, Phil Smith  wrote:

> Scott Ford wrote:
>> We use our own encryption routines ..I was wondering if I could make use of 
>> crypto cards, I am not familiar with them because we develop on Z/Pdt ...
> 
> That's "zPDT". And it does full CEX emulation, I believe, so that's actually 
> no excuse :)
> 
> You can call the CPACF instructions yourself. You can also call ICSF (if it's 
> running), and as long as the function you call doesn't *require* a CEX it 
> will work.
> 
> ...phsiii
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Crypto Facility performance.

[Phil Smith]

Scott Ford wrote:
>We use our own encryption routines ..I was wondering if I could make use of 
>crypto cards, I am not familiar with them because we develop on Z/Pdt ...

That's "zPDT". And it does full CEX emulation, I believe, so that's actually no 
excuse :)

You can call the CPACF instructions yourself. You can also call ICSF (if it's 
running), and as long as the function you call doesn't *require* a CEX it will 
work.

...phsiii

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Crypto Facility performance.

[Scott Ford]

RS,

We use our own encryption routines ..I was wondering if I could make use of 
crypto cards, I am not familiar with them because we develop on Z/Pdt ...

Scott ford
www.identityforge.com
from my IPAD

'Infinite wisdom through infinite means'


On Apr 28, 2013, at 5:44 AM, "R.S."  wrote:

> W dniu 2013-04-27 20:27, Scott Ford pisze:
>> Guys,
>> 
>> I have a question , can a vendor use crypto services on Z without the crypto 
>> Card ?
> 
> Please, define "vendor" and specify what kind of services you mean.
> 
> In general every service means some algorithm, most of them also use a key. 
> Algorithm can be implemented in your software, but you cannot use so called 
> secure keys without crypto cards. There is also CPACF - crypto coprocessor 
> which speeds up given crypto services, but does not offer secure key.
> 
> 
> -- 
> Radoslaw Skorupka
> Lodz, Poland
> 
> 
> 
> 
> 
> 
> --
> Tre tej wiadomoci moe zawiera informacje prawnie chronione Banku 
> przeznaczone wycznie do uytku subowego adresata. Odbiorc moe by 
> jedynie jej adresat z wyczeniem dostpu osób trzecich. Jeeli nie jeste 
> adresatem niniejszej wiadomoci lub pracownikiem upowanionym do jej 
> przekazania adresatowi, informujemy, e jej rozpowszechnianie, kopiowanie, 
> rozprowadzanie lub inne dziaanie o podobnym charakterze jest prawnie 
> zabronione i moe by karalne. Jeeli otrzymae t wiadomo omykowo, 
> prosimy niezwocznie zawiadomi nadawc wysyajc odpowied oraz trwale 
> usun t wiadomo wczajc w to wszelkie jej kopie wydrukowane lub 
> zapisane na dysku.
> 
> This e-mail may contain legally privileged information of the Bank and is 
> intended solely for business use of the addressee. This e-mail may only be 
> received by the addressee and may not be disclosed to any third parties. If 
> you are not the intended addressee of this e-mail or the employee authorised 
> to forward it to the addressee, be advised that any dissemination, copying, 
> distribution or any other similar activity is legally prohibited and may be 
> punishable. If you received this e-mail by mistake please advise the sender 
> immediately by using the reply facility in your e-mail software and delete 
> permanently this e-mail including any copies of it either printed or saved to 
> hard drive. 
> BRE Bank SA, 00-950 Warszawa, ul. Senatorska 18, tel. +48 (22) 829 00 00, fax 
> +48 (22) 829 00 33, www.brebank.pl, e-mail: i...@brebank.pl
> Sd Rejonowy dla m. st. Warszawy XII Wydzia Gospodarczy Krajowego Rejestru 
> Sdowego, nr rejestru przedsibiorców KRS 025237, NIP: 526-021-50-88. 
> Wedug stanu na dzie 01.01.2013 r. kapita zakadowy BRE Banku SA (w caoci 
> wpacony) wynosi 168.555.904 zotych.
> 
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: formatting control blocks

[Miklos Szigetvari]

Hi

Don't see too many suggestions, I'm interested also.
- I looked the IPCS control block formatting macros, I don't like them 
too much
- We are working with C/C++ ,and the IBM DSECT2C utility can generate C 
structures from DSECTs,  we are using  this in our C code.
- The DSECT2C utility and the other product , can do this, taking the 
input from the HLASM ADATA files



On 26.04.2013 17:48, Gary Weinhold wrote:
I'm looking for a public domain control block formatting tool that 
will display memory formatted with the information from a non-IBM 
assembler DSECT.  I realize that there are a couple of CBT files that 
probably include this capability, but I'd appreciate any experiences 
regarding ease of use or limitations before investing too much time.


Gary Weinhold

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN





--
Kind regards, / Mit freundlichen Grüßen
Miklos Szigetvari

Research&  Development
ISIS Papyrus Europe AG
Alter Wienerweg 12, A-2344 Maria Enzersdorf, Austria
T: +43(2236) 27551 333, F: +43(2236)21081
E-mail: miklos.szigetv...@isis-papyrus.com
Info: i...@isis-papyrus.com Hotline: +43-2236-27551-111
Visit our brand new extended Website at www.isis-papyrus.com
---
This e-mail is only intended for the recipient and not legally
binding. Unauthorised use, publication, reproduction or
disclosure of the content of this e-mail is not permitted.
This email has been checked for known viruses, but ISIS Papyrus accepts
no responsibility for malicious or inappropriate content.
---

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Run a REXX from JCL stream

[Terry Sambrooks]

Hi Graham,

Despite being Sunday and knowing that you already have a solution I thought
I would add the following to demonstrate that if there is a need to run REXX
inline, it can be done within a single step and using a sequential data set
to hold the rexx code if it is remembered that IDCAMS commands can be driven
directly from TSO, as in:

//ADCDMSTB JOB  CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID 
//S0010EXEC PGM=IKJEFT01  
//SYSTSPRT DD   SYSOUT=*  
//SYSEXEC  DD   UNIT=SYSDA,SPACE=(80,(100,50)),AVGREC=U,LRECL=80, 
// BLKSIZE=27920,RECFM=FB,DSN=ADCDMST.SEQ.REXX,   
// DISP=(,DELETE) 
//SYSTSIN  DD   * 
 REPRO INFILE(REXXCODE),OUTFILE(SYSEXEC)  
EXEC 'ADCDMST.SEQ.REXX' EXEC  
//REXXCODE DD *,DLM='?@'  
/* REXX batch inline demo */  
Say 'Welcome to REXX' 
Exit 0
?@

Kind Regards - Terry
 
Director
KMS-IT Limited
228 Abbeydale Road South
Dore
Sheffield
S17 3LA
UK
 
Reg : 3767263
 
Outgoing e-mails have been scanned, but it is the recipients responsibility
to ensure their anti-virus software is up to date.
 
 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Crypto Facility performance.

[R.S.]

W dniu 2013-04-27 20:27, Scott Ford pisze:

Guys,

I have a question , can a vendor use crypto services on Z without the crypto 
Card ?


Please, define "vendor" and specify what kind of services you mean.

In general every service means some algorithm, most of them also use a 
key. Algorithm can be implemented in your software, but you cannot use 
so called secure keys without crypto cards. There is also CPACF - crypto 
coprocessor which speeds up given crypto services, but does not offer 
secure key.



--
Radoslaw Skorupka
Lodz, Poland






--
Tre tej wiadomoci moe zawiera informacje prawnie chronione Banku 
przeznaczone wycznie do uytku subowego adresata. Odbiorc moe by jedynie 
jej adresat z wyczeniem dostpu osób trzecich. Jeeli nie jeste adresatem 
niniejszej wiadomoci lub pracownikiem upowanionym do jej przekazania 
adresatowi, informujemy, e jej rozpowszechnianie, kopiowanie, rozprowadzanie 
lub inne dziaanie o podobnym charakterze jest prawnie zabronione i moe by 
karalne. Jeeli otrzymae t wiadomo omykowo, prosimy niezwocznie 
zawiadomi nadawc wysyajc odpowied oraz trwale usun t wiadomo 
wczajc w to wszelkie jej kopie wydrukowane lub zapisane na dysku.

This e-mail may contain legally privileged information of the Bank and is intended solely for business use of the addressee. This e-mail may only be received by the addressee and may not be disclosed to any third parties. If you are not the intended addressee of this e-mail or the employee authorised to forward it to the addressee, be advised that any dissemination, copying, distribution or any other similar activity is legally prohibited and may be punishable. If you received this e-mail by mistake please advise the sender immediately by using the reply facility in your e-mail software and delete permanently this e-mail including any copies of it either printed or saved to hard drive. 


BRE Bank SA, 00-950 Warszawa, ul. Senatorska 18, tel. +48 (22) 829 00 00, fax 
+48 (22) 829 00 33, www.brebank.pl, e-mail: i...@brebank.pl
Sd Rejonowy dla m. st. Warszawy XII Wydzia Gospodarczy Krajowego Rejestru Sdowego, nr rejestru przedsibiorców KRS 025237, NIP: 526-021-50-88. 
Wedug stanu na dzie 01.01.2013 r. kapita zakadowy BRE Banku SA (w caoci wpacony) wynosi 168.555.904 zotych.



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Run a REXX from JCL stream

[Leonardo Vaz]

Here is what I do to have the rexx instream and run it:

//CREATREX  EXEC PGM=IEBGENER
//SYSPRINT  DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT2   DD  DSN=&&PDS(REXX),UNIT=SYSALLDA,
// DISP=(NEW,PASS,DELETE),
// SPACE=(TRK,(1,1,1)),
// DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB,DSORG=PO)
//SYSUT1DD DATA,DLM=##
/* rexx here */
##
//EXECREXX EXEC PGM=IKJEFT01,PARM='REXX',REGION=0M
//SYSTSIN  DD  DUMMY
//SYSTSPRT DD  SYSOUT=*
//SYSEXEC  DD  DSN=&&PDS,DISP=(OLD,DELETE,DELETE)

Regards,
Leo

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Saturday, April 27, 2013 9:43 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Run a REXX from JCL stream

On Sat, 27 Apr 2013 19:49:23 -0500, John McKown wrote:

>REXX programs cannot be written inline. ...
> 
Perhaps.  There may be an undocumented, probably unintended, certainly 
unsupported back door: it has been reported that if you invoke IRXJCL supplying 
binary zeroes in PARM as a member name, the interpreter perceives SYSEXEC as a 
sequential data set and executes it as such.

I don't recall whether I've tried it.  I wouldn't rely on it.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN