Oppolzer - Informatik / Blog

When replacing the X'0B40' by X'0540':

Ready; T=0.02/0.07 11:27:53
assemble bsmtest

ASSEMBLER (XF) DONE
NO STATEMENTS FLAGGED IN THIS ASSEMBLY
Ready; T=0.07/0.13 11:27:58
load bsmtest (clear
Ready; T=0.01/0.02 11:28:03
start
EXECUTION BEGINS...
HELLO FROM WTO
Ready; T=0.01/0.01 11:28:05

... the WTO is simulated by writing on the CMS console

Kind regards

Bernd



Am 05.01.2015 um 10:25 schrieb Bernd Oppolzer:
> 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
>