开云体育

Peppe,

For me today's PCs are so fast (and I'm the only user) that the speed
of an individual routine seldom matters.

Below is my code to expand any length of binary data into character
hexadecimal format.

Wally

...
LM RE,RF,ISPVAR R14 @ VARIABLE, R15 HAS LENGTH

LA R5,ISPOUT R5 @ WTP CHARACTER OUTPUT

ISP00100 LA R6,2 R6 # HEX CHARACTERS IN A BYTE

SR R1,R1 R1 WILL HAVE BYTE BEING PROCESSED

ICM R1,8,0(RF) R1 HAS 2 HEX VALUES IN UPPER BYTE

ISP00200 SR R0,R0 R0 WILL HAVE HEX BEING PROCESSED

SLDL R0,4 R0 HAS SINGLE HEX CHARACTER

STC R0,0(R0,R5) SAVE HEX IN OUTPUT AREA

TR 0(1,R5),ISPTRT1 TRANSLATE X'00-0F' TO X'F0-C6'

LA R5,1(R0,R5) R5 @ WTP NEXT BIT CHARACTER

BCT R6,ISP00200 LOOP - PROCESSING 1 BYTE

LA RE,1(R0,RE) R14 @ NEXT BYTE OF VALUE

BCT RF,ISP00100 LOOP - PROCESSING ALL BYTES
...
ISPTRT1 DC X'0123456789ABCDEF' USED TO CONVERT HEX CHARACTERS
...
ISPVAR DS A @ INPUT BINARY VARIABLE FIELD

ISPVARL DS A LENGTH OF VARIABLE
ISPOUT DS A @ OUTPUT CHARACTER FIELD

Probably an OT question, if this is the case, apologies.

I've a curiosity about the faster way to code, in IFOX00
assembler, hexadecimal stream dump, for an arbitrary long
string of bytes, possibly with a length not a multiple
of a full 32 bit word.

The best way I've seen so for, for a full 32 bit word, is
this sequence of instructions:

...
UNPK DB(9),FW(5)
TR DB(8),TRHEXTAB
...
DB DS D
DB2 DS D
FW DS F HEXTAB DC C'0123456789ABCDEF'
TRHEXTAB EQU HEXTAB-C'0'

which dump a full 32 bit word in 4 hexadecimal digits, assuming
the word is stored at the FW address, basically using 2 instructions.

If the stream length is not a multiple of 4, the remain, which length
is in the {1,2,3} set, may be dumped using the same sequence, slightly
modified, for example for 3:

UNPK DB(7),FW(4)
TR DB(6),TRHEXTAB

Any faster way?

Peppe.

On Sun, Jul 26, 2020 at 07:30 AM, Mattis Lind wrote:

On Sun, Jul 26, 2020 at 01:00 PM, Jay Moseley wrote:

On 7/26/20 5:29 AM, Mattis Lind wrote:

When I tried to release the first job nothing happened at all!

Do you have an initiator set for CLASS=C? All your job cards for the
IOGEN are set up for class C.

Thanks Jay!

Great input! ?

I have bought the JCL book by De Ward Brown, but there are plenty left to read and learn.?

BTW. ?Your web-pages on MVS sysgen are amazing!

I second that nomination!

Bill

See /g/H390-MVS/message/1282.

I have not purchased a 4 yet, but have purchased many 3s from CanaKit. Their power supplies seem robust, never get any complaints about power.

TK3 runs well on a 1GB Pi 3, so your choice RAM depends on what else you will be doing; if it just sits and run Hercules without a GUI, 2GB should be fine.

did you actually get hercules built to run on the phone successfully?

Has anyone purchased a Raspberry Pi4 kit recently, for running TK4-? If so, which one would you recommend?

Thanks,
ScottC

On Sun, Jul 26, 2020 at 03:12 PM, Joe Monk wrote:

Mattis,

?

Just out of curiosity, why are you trying to do an IOGEN for a BSC3. device?

?

BSC1 = nonswitched?point-to-point, BSC3 = nonswitched. point-to-multipoint.

?

The hercules?doc specifically says:?

?

"The line emulates a point-to-point BSC link. There is no point-to-multipoint handling."

?

So, just wondering because commadpt.c doesnt?contain any code for multipoint.

?

Joe

I have been running BSC3 successfully with the Jay Moseley build. As far as I can tell there is nothing in the commadpt.c that prevent multi point from working.?

Multipoint is where a station selection using CU CU DV DV ENQ is sent prior to sending data. This is handled by the TCAM layer as far as I understand. The commadpt.c does nothing to help out here. I would pressume that building TSO/TCAM will fail if you try to use multipoint adressing with a device configured as BSC2 or BSC1.?
But I haven’t tested.?

/Mattis

?

?

On Sun, Jul 26, 2020 at 6:30 AM Mattis Lind <mattislind@...> wrote:

On Sun, Jul 26, 2020 at 01:00 PM, Jay Moseley wrote:

On 7/26/20 5:29 AM, Mattis Lind wrote:

When I tried to release the first job nothing happened at all!

Do you have an initiator set for CLASS=C? All your job cards for the
IOGEN are set up for class C.

Thanks Jay!

Great input! ?

I have bought the JCL book by De Ward Brown, but there are plenty left to read and learn.?

BTW.? Your web-pages on MVS sysgen are amazing!

/Mattis

?

On Sun, Jul 26, 2020 at 01:00 PM, Jay Moseley wrote:

On 7/26/20 5:29 AM, Mattis Lind wrote:

When I tried to release the first job nothing happened at all!

Do you have an initiator set for CLASS=C? All your job cards for the
IOGEN are set up for class C.

Thanks Jay!

Great input! ?

I have bought the JCL book by De Ward Brown, but there are plenty left to read and learn.?

BTW. ?Your web-pages on MVS sysgen are amazing!

/Mattis

On 7/26/20 5:29 AM, Mattis Lind wrote:

When I tried to release the first job nothing happened at all!

Do you have an initiator set for CLASS=C? All your job cards for the IOGEN are set up for class C.

On Sun, Jul 26, 2020 at 10:17 AM, Joe Monk wrote:

Yes it is applicable to an IOGEN as well.

Right. Tried this.

First I created a JCL job that created the OBJPDS datasets:

//OBJPDS00 JOB (OBJPDS),'CREATE OBJPDS',??????????????????????????????? 00010000
//???????????? CLASS=A,MSGLEVEL=(1,1),MSGCLASS=A??????????????????????? 00020000
//IEFBR14? EXEC PGM=IEFBR14???????????????????????????????????????????? 00890000
//OBJPDS01 DD? DSN=SYS1.OBJPDS01,DISP=(NEW,CATLG,DELETE),?????????????? 01390000
//???????????? UNIT=3350,VOL=SER=WORK01,??????????????????????????????? 01400000
//???????????? SPACE=(CYL,(20,10,50)),????????????????????????????????? 01410000
//???????????? DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)???????????????????? 01420000
//OBJPDS02 DD? DSN=SYS1.OBJPDS02,DISP=(NEW,CATLG,DELETE),?????????????? 01430000
//???????????? UNIT=3350,VOL=SER=WORK01,??????????????????????????????? 01440000
//???????????? SPACE=(CYL,(20,10,50)),????????????????????????????????? 01450000
//???????????? DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)???????????????????? 01460000
//OBJPDS03 DD? DSN=SYS1.OBJPDS03,DISP=(NEW,CATLG,DELETE),?????????????? 01470000
//???????????? UNIT=3350,VOL=SER=WORK01,??????????????????????????????? 01480000
//???????????? SPACE=(CYL,(20,10,50)),????????????????????????????????? 01490000
//???????????? DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)???????????????????? 01500000
/*????????????????????????????????????????????????????????????????????? 01510000

But it wouldn't run of course since I hadn't any WORK01 in the system.

Did a dasdinit -a dasd/work01.249 3350 765432 to create a disk.

The attached it to hercules : attach 249 3350 dasd/work01.249

Then I ran another job to initialize the new DASD:

//WRINIT? JOB (WORK01INIT),'INIT OF WORK01',??????????????????????????? 00010000
//???????????? CLASS=A,???????????????????????????????????????????????? 00020000
//???????????? MSGCLASS=A,MSGLEVEL=(1,1)??????????????????????????????? 00030000
//*?????? 1. Initialize WORK00, WORK01, and SMP000 volumes????????????? 00180000
//*???????????????????????????????????????????????????????????????????? 00190000
//S5?????? EXEC? PGM=IEHDASDR,REGION=1024K????????????????????????????? 01700000
//SYSPRINT DD? SYSOUT=A???????????????????????????????????????????????? 01710000
//SYSIN??? DD? *??????????????????????????????????????????????????????? 01720000
?? ANALYZE TODD=249,VTOC=1,EXTENT=15,NEWVOLID=WORK01??????????????????? 01750000
//????????????????????????????????????????????????????????????????????? 01760000

Shutdown the system and changed the configuration for Hercules into:

#
# Configuration file for Hercules emulator
#

CPUSERIAL 000611
CPUMODEL 3033
MAINSIZE 16
XPNDSIZE 0
CNSLPORT 3270
HTTPPORT 8081
NUMCPU 1
LOADPARM ........
SYSEPOCH 1928
TZOFFSET +0000
## remove the next line if running hercules version 1
ARCHMODE S/370
PANRATE FAST
OSTAILOR QUIET
# .-----------------------------Device number
# |??? .------------------------Device type
# |??? |?? .--------------------File name
# |??? |?? |
# V??? V?? V
#--- ---- --------------------
000e 1403 prt/prt00e.txt
0012 3505 jcl/null.jcl eof trunc ascii
0013 3525 prt/pch00d.txt ascii
001f 3215
0150 3330 dasd/start1.150
0170 3420 *
0151 3330 dasd/spool0.151
0148 3350 dasd/mvsres.148
0149 3350 dasd/smp001.149
014A 3350 dasd/smp002.14a
014B 3350 dasd/smp003.14b
014C 3350 dasd/smp004.14c
0248 3350 dasd/mvsdlb.248
0249 3350 dasd/work01.249

This is basically the standard configuration for tk3 starter system but with the added work01 volume.

So finally I could run tha OBJPDS job at the top which seemed to work well. At least when looking for the condition codes.

So then then were time to run the stage 2. I used the script stage2.rexx that Jay Moseley have provided. It converted the output file according to hist suggested changes.
The diff were basically:

$ diff stage1.output stage2.jcl
1c1,5
< //IOG11 JOB 1,'SYSTEM GENERATION',MSGLEVEL=1,CLASS=C,MSGCLASS=A
---
> //
> //IOG11 JOB 1,'SYSTEM GENERATION',MSGLEVEL=1,CLASS=C,MSGCLASS=A,
> //???????????? TYPRUN=HOLD,TIME=1439
> /*JOBPARM LINES=100
> //JOBCAT?? DD? DSN=SYS1.VSAM.MASTER.CATALOG,DISP=SHR
2078c2082,2086
< //IOG12 JOB 1,'SYSTEM GENERATION',MSGLEVEL=1,CLASS=C,MSGCLASS=A
---
> //
> //IOG12 JOB 1,'SYSTEM GENERATION',MSGLEVEL=1,CLASS=C,MSGCLASS=A,
> //???????????? TYPRUN=HOLD,TIME=1439
> /*JOBPARM LINES=100
> //JOBCAT?? DD? DSN=SYS1.VSAM.MASTER.CATALOG,DISP=SHR
2839c2847,2851
< //IOG13 JOB 1,'SYSTEM GENERATION',MSGLEVEL=1,CLASS=C,MSGCLASS=A
---
> //
> //IOG13 JOB 1,'SYSTEM GENERATION',MSGLEVEL=1,CLASS=C,MSGCLASS=A,
> //???????????? TYPRUN=HOLD,TIME=1439
> /*JOBPARM LINES=100
> //JOBCAT?? DD? DSN=SYS1.VSAM.MASTER.CATALOG,DISP=SHR
8837c8849,8853
< //IOG14 JOB 1,'SYSTEM GENERATION',MSGLEVEL=1,CLASS=C,MSGCLASS=A
---
> //
> //IOG14 JOB 1,'SYSTEM GENERATION',MSGLEVEL=1,CLASS=C,MSGCLASS=A,
> //???????????? TYPRUN=HOLD,TIME=1439
> /*JOBPARM LINES=100
> //JOBCAT?? DD? DSN=SYS1.VSAM.MASTER.CATALOG,DISP=SHR
9285c9301,9305
< //IOG15 JOB 1,'SYSTEM GENERATION',MSGLEVEL=1,CLASS=C,MSGCLASS=A
---
> //
> //IOG15 JOB 1,'SYSTEM GENERATION',MSGLEVEL=1,CLASS=C,MSGCLASS=A,
> //???????????? TYPRUN=HOLD,TIME=1439
> /*JOBPARM LINES=100
> //JOBCAT?? DD? DSN=SYS1.VSAM.MASTER.CATALOG,DISP=SHR
9304c9324
<
---
> //

?

I then ran the converted script as Jay Moseley did when running his Sysgen. When I tried to release the first job nothing happened at all!

Quite possibly the MVSRES volume was screwed up royally because of the first attempt, but I thought that something more was supposed to happen when I released the job?

I think I see one difference when I run the job vs when Jay does it: "$HASP125 READER1? SKIPPING FOR JOB CARD"

I tried to look this up:

But I don't fully understand how to resolve this. Any hints?

?

$ telnet localhost 3270
Trying 127.0.0.1...
Connected to localhost.
Escape character is '^]'.
Hercules version 3.13 built on Jul 18 2020 22:49:58
running on mattis-HP-EliteBook (Linux-4.4.0-186-generic.#216-Ubuntu SMP Wed Jul 1 05:34:05 UTC 2020 x86_64 MP=4)
Connected to device 0:001F
IEA101A SPECIFY SYSTEM PARAMETERS FOR RELEASE 03.70.VS2
HHCTE006A Enter input for console device 001F
r 0,clpa
?IEF165I // START JES2
?IEE351I SMF SYS1.MAN RECORDING NOT BEING USED
*00 $HASP426 SPECIFY OPTIONS - HASP-II, VERSION JES2 4.0
r 0,format,noreq
?IEE600I REPLY TO 00 IS;SUPPRESSED
?$HASP423 SPOOL0 IS BEING FORMATTED
?IEE041I THE SYSTEM LOG IS NOW ACTIVE
?$HASP160 PRINTER1 INACTIVE - CLASS=AJ
?$HASP160 PUNCH1?? INACTIVE - CLASS=BK
?$HASP125 READER1? SKIPPING FOR JOB CARD
?$HASP100 INIT???? ON STCINRDR
?$HASP373 INIT???? STARTED
?$HASP100 INIT???? ON STCINRDR
?$HASP373 INIT???? STARTED
?$HASP100 INIT???? ON STCINRDR
?$HASP373 INIT???? STARTED
?$HASP309??? INIT? 1 INACTIVE *** C=A
?$HASP309??? INIT? 2 INACTIVE *** C=BA
?$HASP309??? INIT? 3 INACTIVE *** C=CBA
?$HASP099 ALL AVAILABLE FUNCTIONS COMPLETE
$pi2-3
?$HASP000 OK
?$HASP395 INIT???? ENDED
?$HASP150 INIT???? ON PRINTER1
?$HASP160 PRINTER1 INACTIVE - CLASS=AJ
?$HASP099 ALL AVAILABLE FUNCTIONS COMPLETE
?$HASP250 INIT???? IS PURGED
?$HASP395 INIT???? ENDED
?$HASP150 INIT???? ON PRINTER1
?$HASP160 PRINTER1 INACTIVE - CLASS=AJ
?$HASP099 ALL AVAILABLE FUNCTIONS COMPLETE
?$HASP250 INIT???? IS PURGED
?$HASP100 OBJPDS00 ON READER1???? CREATE OBJPDS
?$HASP373 OBJPDS00 STARTED - INIT? 1 - CLASS A - SYS H158
?$HASP395 OBJPDS00 ENDED
?$HASP150 OBJPDS00 ON PRINTER1
?$HASP309??? INIT? 1 INACTIVE *** C=A
?$HASP160 PRINTER1 INACTIVE - CLASS=AJ
?$HASP099 ALL AVAILABLE FUNCTIONS COMPLETE
?$HASP250 OBJPDS00 IS PURGED
?$HASP125 READER1? SKIPPING FOR JOB CARD
?$HASP100 IOG11??? ON READER1???? SYSTEM GENERATION
?$HASP100 IOG12??? ON READER1???? SYSTEM GENERATION
?$HASP100 IOG13??? ON READER1???? SYSTEM GENERATION
?$HASP101 IOG11??? HELD
?$HASP101 IOG12??? HELD
?$HASP100 IOG14??? ON READER1???? SYSTEM GENERATION
?$HASP100 IOG15??? ON READER1???? SYSTEM GENERATION
?$HASP101 IOG13??? HELD
?$HASP101 IOG14??? HELD
?$HASP101 IOG15??? HELD
?$HASP099 ALL AVAILABLE FUNCTIONS COMPLETE
$a'IOG11
?$HASP000 IOG11??? RELEASED

/Mattis

On Sun, Jul 26, 2020 at 01:01 AM, Joe Monk wrote:

Mattis,

?

The other thing you have to remember is that you are generating a new nucleus. So, you have to apply all of the service and mods that. were applied before your did your IOGEN before you can IPL. And I think you have to update. IEASYS00 to tell it to use the new nucleus.

Reading the instructions in the TK4- manual it looks like this takes place AFTER IPLing the new TK4- system. Not in the starter system. Step 10 - 12 above.


Using the excellent pages that Jay Moseley has provided on how to perform a sysgen shows that in Jya Mosely SYSGEN00.jcl there is this section:

//*???????????????????????????????????????????????????????????????????? 01310000
//ALLOC??? EXEC PGM=IEFBR14???????????????????????????????????????????? 01320000
//*???????????????????????????????????????????????????????????????????? 01330000
//* * 01340000
//* ALLOCATE AND CATALOG WORK DATASETS USED IN STAGE 2 DECK?????????? * 01350000
//* * 01360000
//*???????????????????????????????????????????????????????????????????? 01370000
//STEPCAT? DD? DSN=SYS1.VSAM.MASTER.CATALOG,DISP=SHR??????????????????? 01380000
//OBJPDS01 DD? DSN=SYS1.OBJPDS01,DISP=(NEW,CATLG,DELETE),?????????????? 01390000
//???????????? UNIT=3350,VOL=SER=WORK01,??????????????????????????????? 01400000
//???????????? SPACE=(CYL,(20,10,50)),????????????????????????????????? 01410000
//???????????? DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)???????????????????? 01420000
//OBJPDS02 DD? DSN=SYS1.OBJPDS02,DISP=(NEW,CATLG,DELETE),?????????????? 01430000
//???????????? UNIT=3350,VOL=SER=WORK01,??????????????????????????????? 01440000
//???????????? SPACE=(CYL,(20,10,50)),????????????????????????????????? 01450000
//???????????? DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)???????????????????? 01460000
//OBJPDS03 DD? DSN=SYS1.OBJPDS03,DISP=(NEW,CATLG,DELETE),?????????????? 01470000
//???????????? UNIT=3350,VOL=SER=WORK01,??????????????????????????????? 01480000
//???????????? SPACE=(CYL,(20,10,50)),????????????????????????????????? 01490000
//???????????? DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)???????????????????? 01500000
//*???????????????????????????????????????????????????????????????????? 01510000

So it looks like they should end up on the WORK01 volume. I will try to do similar things in my system.

While reading the Jay Moseley instructions there are also a number of modifications done to the stage 2 job before it is submitted:

1. For jobs 1 through 5, add a continuation card immediately after the JOB card (add a comma onto the rightmost end of the JOB card and insert a card following the JOB card with // in the first 2 columns).? Note that job 6 already has a continuation card for the JOB card.

2. For jobs 1 through 5, add TYPRUN=HOLD on the newly added continuation card of the JOB card beginning anywhere in columns 2 through 16.? Note that job 6 already has TYPRUN=HOLD on the continuation card.

3. For all jobs, add a comma and TIME=1439 following the TYPRUN=HOLD on the continuation of the JOB card.

4. For all 6 jobs, insert a new card immediately after the continuation card of the JOB card.? Beginning in column 1 of this inserted blank card, enter?
   
   ??????????????? /*JOBPARM? LINES=100

5. For jobs 1 through 5, insert another new card immediately after the card just inserted (the JOBPARM card).? Beginning in column 1 of this inserted blank card, enter
   
   ??????????????? //JOBCAT? DD? DSN=SYS1.VSAM.MASTER.CATALOG,DISP=SHR

6. In job 6, locate STEPY (which is the third from the final step in the deck) and change the program executed from IDCAMS to IEFBR14:
   
   ??????????????? //STEPY????? EXEC PGM=IEFBR14,REGION=512K

7. Throughout the jobstreams, whereever there is an EXPDT=99350 parameter on a DD statement, change it to EXPDT=00000.

8. Depending upon your personal preference, you may add a job terminator statement (//) at the end of the generated deck

He has a script, stage2.awk/stage2.rexx that does this automatically. I will have a look to see if this script could be applicable to an IOGEN as well.

We'll see how all this works out...

/Mattis