On Mon, 7 Dec 2015 15:45:46 +0100, Lucas Rosalen wrote:
>Looks like $DINTRDR would suffice or $DINTRDR,C. Check this out:
>https://www-01.ibm.com/support/knowledgecenter/mobile/#!/SSLTBW_2.1.0/com.ibm.zos.v2r1.hasa200/dintrdr.htm
>
>Lucas
>On Dec 7, 2015 15:33, "Gabor Hoffer" wrote:
>
>> How can I inquire the internal reader characteristics from program (asm,
>> c)?
>>
>> $HASP838 INTRDR
>> $HASP838 INTRDR AUTH=(DEVICE=NO,JOB=NO,SYSTEM=NO),BATCH=YES,
>> $HASP838 CLASS=X,HOLD=NO,HONORLIM=NO,PRTYINC=0,
>> $HASP838 PRTYLIM=15,SYSAFF=(ANY),TRACE=NO
>>
>> Actually, I'm interested in default job class.
>> Thanks in advance.
OK. Here's an example using SDSF services:
user@OS/390.24.00: cat ISFOPER
/* Rexx */ signal on novalue; /*
Doc: Issue operator command via ISFSLASH; reply to stdout.
See (strangely enough):
Document Number SA22-7670-11
#12.0 "z/OS V1R10.0 SDSF Operation and Customization"
12.0 Using SDSF with the REXX programming language
*/
trace Err
RC = ISFCALLS( 'ON' )
address 'SDSF'
Arg1.0 = 1
Arg1.1 = arg( 1 )
if Arg1.1=='' then address 'ISREDIT' 'MACRO (Arg1.1)'
'isfexec ISFULOG'
'ISFSLASH (Arg1.)'
do I = 1 to ISFULOG.0; say ISFULOG.I; end I
exit( RC )
user@OS/390.24.00:
Invoked under UNIX system services, it writes to stdout:
user@OS/390.24.00: ISFOPER '$dintrdr'
MVS3 2015341 14:04:42.16 ISF041I CONSOLE NAME user MODIFIED
MVS3 2015341 14:04:42.16 ISF031I CONSOLE user$ ACTIVATED
MVS3 2015341 14:04:42.16 -$dintrdr
MVS3 2015341 14:04:42.17 $HASP838 INTRDR
$HASP838 INTRDR
AUTH=(DEVICE=YES,JOB=YES,SYSTEM=YES),BATCH=YES,
$HASP838
CLASS=A,HOLD=NO,HONORLIM=NO,PRTYINC=0,
$HASP838
PRTYLIM=15,SYSAFF=(ANY),TRACE=NO
user@OS/390.24.00:
Tedious plumbing with, e.g. BPX1PIP and BPX1SPN is left as an exercise
for the student.
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
