Oppolzer - Informatik / Blog

FWIW:

I tried the program on VM 370 R6 on Hercules; my Version is 3.07.

The program:

BSMTEST CSECT
  USING *,15
  LA 4,0
  DC X'0B40'
  WTO 'HELLO FROM WTO'
  LA  15,0
  BR 14
  END BSMTEST

The result:

Ready; T=0.01/0.03 11:23:02
global maclib osmacro osmacro1
Ready; T=0.01/0.01 11:23:08
assemble bsmtest

ASSEMBLER (XF) DONE
NO STATEMENTS FLAGGED IN THIS ASSEMBLY
Ready; T=0.07/0.14 11:23:14
load bsmtest (clear
Ready; T=0.01/0.02 11:23:18
start
EXECUTION BEGINS...
DMSITP141T OPERATION EXCEPTION OCCURRED AT 020006 IN ROUTINE USER PGM.
CMS


Remember:

with VM/CMS, the program is loaded at X'20000', so the abend 0C1 at X'20006'
is just after the BSM.

It works as it should, IMO.

Kind regards

Bernd




Am 05.01.2015 um 00:19 schrieb S.C.:
>
>    I also had to change the JCL like comment out APVTMACS, on the
> JOB statement, add an account code "X", programmer name "X", and
> MSGCLASS=C
>
>    It gets an S0C1 abend.
>
> HHC01413I Hercules version 4.00.0-git-8110-g53196bf
> HHC01414I (c) Copyright 1999-2013 by Roger Bowler, Jan Jaeger, and others
> HHC01415I Built on Aug 28 2014 at 13:33:41
>
> IEA101A SPECIFY SYSTEM PARAMETERS FOR RELEASE 03.8 .VS2
>
>
> 18.05.05 JOB  876  $HASP100 PDPMVS   ON INTRDR      X
> 18.05.05 JOB  876  $HASP373 PDPMVS   STARTED - INIT  1 - CLASS C - SYS MINE
> 18.05.05 JOB  876  IEF403I PDPMVS - STARTED - TIME=18.05.05
> 18.05.05 JOB  876  IEFACTRT - Stepname  Procstep  Program   Retcode
> 18.05.05 JOB  876  PDPMVS     CREATE              IEFBR14   RC= 0000
> 18.05.06 JOB  876  PDPMVS     WTOWORLD  ASM       IFOX00    RC= 0000
> 18.05.06 JOB  876  PDPMVS     WTOWORLD  LKED      IEWL      RC= 0000
> 18.05.06 JOB  876  IEF450I PDPMVS RUN - ABEND S0C1 U0000 - TIME=18.05.06
> 18.05.06 JOB  876  PDPMVS     RUN                 WTOWORLD  AB S0C1
> 18.05.06 JOB  876  IEF404I PDPMVS - ENDED - TIME=18.05.06
> 18.05.06 JOB  876  $HASP395 PDPMVS   ENDED
> 18.05.06           $HASP309    INIT  1 INACTIVE ******** C=AC
>
>
> 00000                       1  CSECT
>                      00000  2  USING *,15
> 00000 4140 0000   00000     3  LA    4,0
>                             4  BSM   4,0
> 00004                       5+ DS    0H
> 00004 0B40                  6+ DC    0XL2'00',X'0B',AL.4(4,0)
>                             7  WTO   'HELLO from WTO'
> 00006 0700                  8+ CNOP  0,4
> 00008 4510 F01E   0001E     9+ BAL   1,IHB0002A
> 0000C 0012                 10+ DC    AL2(18)             TEXT LENGTH
> 0000E 0000                 11+ DC    B'0000000000000000' MCS FLAGS
> 00010 C8C5D3D3D6408699     12+ DC    C'HELLO from WTO'
> 0001E                      13+IHB0002A DS    0H
> 0001E 0A23                 14+ SVC   35
> 00020 41F0 0000   00000    15  LA    15,0
> 00024 07FE                 16  BR    14
>                            17  END