Getting It To Run



Getting It To Run

Postby RISCCISCInstSet » Thu Dec 08, 2011 1:31 am

This is from another topic, but it wasn't on subject.

I'm trying to compile this:

***MAIN     SETUP
***MAIN  CSECT
MAIN     SETUP
MAIN     CSECT

*     OPEN   (OUTFILE,(OUTPUT))
***  USING *,12
     CALL   WRITE,(MSG),VL
*     PUT   OUTFILE,message
ENDDATA  DS    0H
*     CLOSE (OUTFILE)
         ENDIT
***  USING *,12

message DS CL17
MSG   DC   AL2(MSGE-MSGB)
MSGB  DC   C'some nice message'
MSGE  EQU  *

*OUTFILE DCB  DSORG=PS,
*               MACRF=(PM),
*               DDNAME=OUTFILE,
*               RECFM=FM,
*               LRECL=17



END MAIN

WRITE    CSECT
*
*   somehow move message
     BALR  11,0
     USING *,11
     L     2,0(,1)
***  OPEN  (OUTFILE,(OUTPUT))
*     MVC   message,MSGB

***  CLOSE  OUTFILE
***     RETURN   (14,12),T,RC=0 ***

      BR    14
      END


Job Output:

                   J E S 2  J O B  L O G  --  S Y S T E M  S 0 W 1  --  N O D E  S V S C J E S 2

13.02.25 JOB06549 ---- WEDNESDAY, 07 DEC 2011 ----
13.02.25 JOB06549  IRR010I  USERID C432110  IS ASSIGNED TO THIS JOB.
13.02.25 JOB06549  IEF677I WARNING MESSAGE(S) FOR JOB C432110A ISSUED
13.02.25 JOB06549  ICH70001I C432110  LAST ACCESS AT 13:02:06 ON WEDNESDAY, DECEMBER 7, 2011
13.02.25 JOB06549  $HASP373 C432110A STARTED - INIT 1    - CLASS A - SYS S0W1
13.02.26 JOB06549  -                                              --TIMINGS (MINS.)--            -----PAGING COUNTS----
13.02.26 JOB06549  -STEPNAME PROCSTEP    RC   EXCP   CONN    TCB    SRB  CLOCK   SERV  WORKLOAD  PAGE  SWAP   VIO SWAPS
13.02.26 JOB06549  -ASSEMBLE             12    157     34    .00    .00     .0   1136  BATCH        0     0     0     0
13.02.26 JOB06549  -LINK              FLUSH      0      0    .00    .00     .0      0  BATCH        0     0     0     0
13.02.26 JOB06549  IEC192I OPEN MACRO MAY HAVE BEEN USED WITH INCONSISTENT MODE SPECIFICATIONS.
13.02.26 JOB06549  IEC130I "?0 "?0  DD STATEMENT MISSING
13.02.26 JOB06549  IEA995I SYMPTOM DUMP OUTPUT  679
   679             SYSTEM COMPLETION CODE=0C4  REASON CODE=00000004
   679              TIME=13.02.26  SEQ=00107  CPU=0000  ASID=001A
   679              PSW AT TIME OF ERROR  078C2000   80E83F2E  ILC 2  INTC 04
   679                NO ACTIVE MODULE FOUND
   679                NAME=UNKNOWN
   679                DATA AT PSW  00E83F28 - 42421831  0E02B20A  005047F0
   679                AR/GR 0: 967F7DCA/00000000_00000028   1: 00000000/00000000_0000000C
   679                      2: 00000000/00000000_007C3188   3: 00000000/00000000_0000000C
   679                      4: 00000000/00000000_007C3410   5: 00000000/00000000_00E83120
   679                      6: 00000000/00000000_007C36B0   7: 00000000/00000000_C0000010
   679                      8: 00000000/00000000_007C376C   9: 00000000/00000000_0194F2A0
   679                      A: 00000000/00000000_00E568DA   B: 00000000/00000000_00007F80
   679                      C: 00000000/00000000_007C377C   D: 00000000/00000000_00000000
   679                      E: 00000000/00000000_00E56A24   F: 00000002/00000010_007C36D0
   679              END OF SYMPTOM DUMP
13.02.26 JOB06549  IEF450I C432110A RUN - ABEND=S0C4 U0000 REASON=00000004
13.02.26 JOB06549  -RUN               *S0C4      4      1    .00    .00     .0    121  BATCH        0     0     0     0
13.02.26 JOB06549  -C432110A ENDED.  NAME-                     TOTAL TCB CPU TIME=    .00 TOTAL ELAPSED TIME=    .0
13.02.26 JOB06549  $HASP395 C432110A ENDED
------ JES2 JOB STATISTICS ------
  07 DEC 2011 JOB EXECUTION DATE
           26 CARDS READ
          494 SYSOUT PRINT RECORDS
            0 SYSOUT PUNCH RECORDS
           31 SYSOUT SPOOL KBYTES
         0.01 MINUTES EXECUTION TIME
        1 //C432110A JOB (ASSY),CLASS=A,MSGCLASS=A,                               JOB06549
          //   NOTIFY=&SYSUID,MSGLEVEL=(1,1)
          //**************//
          //** ASSEMBLE **//
          //**************//
          IEFC653I SUBSTITUTION JCL - (ASSY),CLASS=A,MSGCLASS=A,NOTIFY=C432110,MSGLEVEL=(1,1)
        2 //ASSEMBLE EXEC PGM=ASMA90
        3 //SYSIN    DD DSN=C432110.ASM(LAB7),DISP=SHR
        4 //SYSLIB   DD DSN=SYS1.MACLIB,DISP=SHR
        5 //         DD DSN=C432110.ASM.MACLIB,DISP=SHR
        6 //SYSLIN   DD DSN=&&OBJ,DISP=(,PASS)
        7 //SYSUT1   DD DSN=&&SYSUT1,DISP=(,PASS)
        8 //SYSPRINT DD SYSOUT=*
          //**********//
          //** LINK **//
          //**********//
        9 //LINK     EXEC PGM=HEWL,PARM='MAP,LET,LIST,NCAL',COND=(8,LT,ASSEMBLE)
       10 //SYSLIN   DD DSN=&&OBJ,DISP=SHR
       11 //SYSUT1   DD DSN=&&SYSUT1,DISP=(,PASS)
       12 //SYSLMOD  DD DSN=C432110.LOAD(LAB7),DISP=(OLD,CATLG)
       13 //SYSPRINT DD SYSOUT=*
          //*********//
          //** GO ***//
          //*********//
       14 //RUN      EXEC PGM=LAB7,PARM='TRACE'
       15 //STEPLIB  DD DSN=C432110.LOAD(LAB7),DISP=SHR
       16 //OUTFILE  DD DSN=C432110.TEXT(ABC2),DISP=SHR
STMT NO. MESSAGE
-
       10 IEF648I INVALID DISP FIELD- PASS SUBSTITUTED
ICH70001I C432110  LAST ACCESS AT 13:02:06 ON WEDNESDAY, DECEMBER 7, 2011
IEF236I ALLOC. FOR C432110A ASSEMBLE
IEF237I 0D34 ALLOCATED TO SYSIN
IEF237I 1001 ALLOCATED TO SYSLIB
IEF237I 0D35 ALLOCATED TO
IGD100I VIO ALLOCATED TO DDNAME SYSLIN   DATACLAS (        )
IGD100I VIO ALLOCATED TO DDNAME SYSUT1   DATACLAS (        )
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF142I C432110A ASSEMBLE - STEP WAS EXECUTED - COND CODE 0012
IEF285I   C432110.ASM                                  KEPT
IEF285I   VOL SER NOS= VPWRKC.
IEF285I   SYS1.MACLIB                                  KEPT
IEF285I   VOL SER NOS= VTMVSC.
IEF285I   C432110.ASM.MACLIB                           KEPT
IEF285I   VOL SER NOS= VPWRKD.
IEF285I   SYS11341.T130225.RA000.C432110A.OBJ.H01      PASSED
IEF285I   SYS11341.T130225.RA000.C432110A.SYSUT1.H01   PASSED
IEF285I   C432110.C432110A.JOB06549.D0000101.?         SYSOUT
IEF373I STEP/ASSEMBLE/START 2011341.1302
IEF374I STEP/ASSEMBLE/STOP  2011341.1302 CPU    0MIN 00.02SEC SRB    0MIN 00.00SEC VIRT   228K SYS   268K EXT   32768K SYS   11700K
IEF202I C432110A LINK - STEP WAS NOT RUN BECAUSE OF CONDITION CODES
IEF272I C432110A LINK - STEP WAS NOT EXECUTED.
IEF373I STEP/LINK    /START 2011341.1302
IEF374I STEP/LINK    /STOP  2011341.1302 CPU    0MIN 00.00SEC SRB    0MIN 00.00SEC VIRT     0K SYS     0K EXT       0K SYS       0K
IEF236I ALLOC. FOR C432110A RUN
IEF237I 0D35 ALLOCATED TO STEPLIB
IEF237I 0D34 ALLOCATED TO OUTFILE
IEC192I OPEN MACRO MAY HAVE BEEN USED WITH INCONSISTENT MODE SPECIFICATIONS.
IEC130I "?0 "?0  DD STATEMENT MISSING
IEA995I SYMPTOM DUMP OUTPUT
SYSTEM COMPLETION CODE=0C4  REASON CODE=00000004
TIME=13.02.26  SEQ=00107  CPU=0000  ASID=001A
PSW AT TIME OF ERROR  078C2000   80E83F2E  ILC 2  INTC 04
   NO ACTIVE MODULE FOUND
   NAME=UNKNOWN
   DATA AT PSW  00E83F28 - 42421831  0E02B20A  005047F0
   AR/GR 0: 967F7DCA/00000000_00000028   1: 00000000/00000000_0000000C
         2: 00000000/00000000_007C3188   3: 00000000/00000000_0000000C
         4: 00000000/00000000_007C3410   5: 00000000/00000000_00E83120
         6: 00000000/00000000_007C36B0   7: 00000000/00000000_C0000010
         8: 00000000/00000000_007C376C   9: 00000000/00000000_0194F2A0
         A: 00000000/00000000_00E568DA   B: 00000000/00000000_00007F80
         C: 00000000/00000000_007C377C   D: 00000000/00000000_00000000
         E: 00000000/00000000_00E56A24   F: 00000002/00000010_007C36D0
END OF SYMPTOM DUMP
IEF472I C432110A RUN - COMPLETION CODE - SYSTEM=0C4 USER=0000 REASON=00000004
IEF285I   C432110.LOAD                                 KEPT
IEF285I   VOL SER NOS= VPWRKD.
IEF285I   C432110.TEXT                                 KEPT
IEF285I   VOL SER NOS= VPWRKC.
IEF373I STEP/RUN     /START 2011341.1302
IEF374I STEP/RUN     /STOP  2011341.1302 CPU    0MIN 00.00SEC SRB    0MIN 00.00SEC VIRT     8K SYS   252K EXT       0K SYS   10856K
IEF285I   SYS11341.T130225.RA000.C432110A.OBJ.H01      DELETED
IEF285I   SYS11341.T130225.RA000.C432110A.SYSUT1.H01   DELETED
IEF375I  JOB/C432110A/START 2011341.1302
IEF376I  JOB/C432110A/STOP  2011341.1302 CPU    0MIN 00.02SEC SRB    0MIN 00.00SEC

                                         High Level Assembler Option Summary                   (PTF UK60812)   Page    1
                                                                                            HLASM R5.0  2011/12/07 13.02
  No Overriding ASMAOPT Parameters
  No Overriding Parameters
  No Process Statements


  Options for this Assembly
  NOADATA
    ALIGN
  NOASA
    BATCH
    CODEPAGE(047C)
  NOCOMPAT
  NODBCS
  NODECK
    DXREF
    ESD
  NOEXIT
    FLAG(0,ALIGN,CONT,EXLITW,NOIMPLEN,NOPAGE0,PUSH,RECORD,NOSUBSTR,USING0)
  NOFOLD
  NOGOFF
  NOINFO
    LANGUAGE(EN)
  NOLIBMAC
    LINECOUNT(60)
    LIST(121)
    MACHINE(,NOLIST)
    MXREF(SOURCE)
    OBJECT
    OPTABLE(UNI,NOLIST)
  NOPCONTROL
  NOPESTOP
  NOPROFILE
  NORA2
  NORENT
    RLD
    RXREF
    SECTALGN(8)
    SIZE(MAX)
  NOSUPRWARN
    SYSPARM()
  NOTERM
  NOTEST
    THREAD
  NOTRANSLATE
    TYPECHECK(MAGNITUDE,REGISTER)
    USING(NOLIMIT,MAP,WARN(15))
  NOWORKFILE
    XREF(SHORT,UNREFS)

  No Overriding DD Names

                                              External Symbol Dictionary                                       Page    2
Symbol   Type   Id     Address  Length   Owner Id Flags Alias-of                            HLASM R5.0  2011/12/07 13.02
MAIN      SD 00000001 00000000 00000096             00
WRITE     ER 00000002

                                                                                                               Page    3
  Active Usings: None
  Loc  Object Code    Addr1 Addr2  Stmt   Source Statement                                  HLASM R5.0  2011/12/07 13.02
                                      2 ***MAIN     SETUP
                                      3 ***MAIN  CSECT
                                      4 MAIN     SETUP
000000                00000 00096     6+MAIN     CSECT                                                          01-SETUP

                                      8+* SAVE REGISTERS
                                      9+         SAVE  (14,12),,MAIN-12/07/11-13.02                             01-SETUP
000000 47F0 F018            00018    12+         B     24(0,15)                          BRANCH AROUND ID       02-SAVE
000004 13                            13+         DC    AL1(19)                           LENGTH OF IDENTIFIER   02-SAVE
000005 D4C1C9D560F1F261              14+         DC    CL8'MAIN-12/'                     IDENTIFIER             02-SAVE
00000D F0F761F1F160F1F3              15+         DC    CL8'07/11-13'                     IDENTIFIER             02-SAVE
000015 4BF0F2                        16+         DC    CL3'.02'                          IDENTIFIER             02-SAVE
000018 90EC D00C            0000C    17+         STM   14,12,12(13)                      SAVE REGISTERS         02-SAVE

                                     19+* ESTABLISH ADDRESSABILITY FOR PROGRAM
00001C 18CF                          20+         LR    12,15              ESTABLISH FIRST BASE REGISTER         01-SETUP
                 R:C  00000          21+         USING MAIN,12                                                  01-SETUP

                                     23+* ESTABLISH NEW SAVE AREA AND POINT 13 TO IT
                                     24+         GETMAIN R,LV=72                                                01-SETUP
00001E 4100 0048            00048    27+         LA    0,72(0,0)               LOAD LENGTH                      02-GETMA
000022 4510 C026            00026    28+         BAL   1,*+4                   INDICATE GETMAIN        @Z30EN9G 02-GETMA
000026 0A0A                          29+         SVC   10                      ISSUE GETMAIN SVC                02-GETMA
000028 5010 D008            00008    30+         ST    1,8(,13)           CHAIN NEW AND OLD                     01-SETUP
00002C 50D0 1004            00004    31+         ST    13,4(,1)                SAVE AREAS TOGETHER              01-SETUP
000030 9801 D014            00014    32+         LM    0,1,20(13)         RESTORE REGISTERS 0 AND 1             01-SETUP
000034 58D0 D008            00008    33+         L     13,8(,13)          LOAD ADDRESS OF NEW SAVE AREA         01-SETUP

                      00000          35+R0       EQU   0                                                        01-SETUP
                      00001          36+R1       EQU   1                                                        01-SETUP
                      00002          37+R2       EQU   2                                                        01-SETUP
                      00003          38+R3       EQU   3                                                        01-SETUP
                      00004          39+R4       EQU   4                                                        01-SETUP
                      00005          40+R5       EQU   5                                                        01-SETUP
                      00006          41+R6       EQU   6                                                        01-SETUP
                      00007          42+R7       EQU   7                                                        01-SETUP
                      00008          43+R8       EQU   8                                                        01-SETUP
                      00009          44+R9       EQU   9                                                        01-SETUP
                      0000A          45+R10      EQU   10                                                       01-SETUP
                      0000B          46+R11      EQU   11                                                       01-SETUP
                      0000C          47+R12      EQU   12                                                       01-SETUP
                      0000D          48+R13      EQU   13                                                       01-SETUP
                      0000E          49+R14      EQU   14                                                       01-SETUP
                      0000F          50+R15      EQU   15                                                       01-SETUP
                      00001          51+BO       EQU   1                                                        01-SETUP
                      00002          52+BP       EQU   2                                                        01-SETUP
                      00002          53+BH       EQU   2                                                        01-SETUP
                                                                                                               Page    4
  Active Usings: MAIN,R12
  Loc  Object Code    Addr1 Addr2  Stmt   Source Statement                                  HLASM R5.0  2011/12/07 13.02
                      00004          54+BL       EQU   4                                                        01-SETUP
                      00004          55+BM       EQU   4                                                        01-SETUP
                      00007          56+BNE      EQU   7                                                        01-SETUP
                      00007          57+BNZ      EQU   7                                                        01-SETUP
                      00008          58+BE       EQU   8                                                        01-SETUP
                      00008          59+BZ       EQU   8                                                        01-SETUP
                      0000B          60+BNL      EQU   11                                                       01-SETUP
                      0000B          61+BNM      EQU   11                                                       01-SETUP
                      0000D          62+BNH      EQU   13                                                       01-SETUP
                      0000D          63+BNP      EQU   13                                                       01-SETUP
                      0000E          64+BNO      EQU   14                                                       01-SETUP

000038                00000 00096    66 MAIN     CSECT
                                     68 *     OPEN   (OUTFILE,(OUTPUT))
                                     69 ***  USING *,12
                                     70      CALL   WRITE,(MSG),VL
000038                               72+         CNOP  0,4                                                      01-CALL
000038 47F0 C040            00040    73+         B     *+8                               BRANCH AROUND VCON     01-CALL
00003C 00000000                      74+IHB0007B DC    V(WRITE)                          ENTRY POINT ADDRESS    01-CALL
000040 4110 C048            00048    77+         LA    1,IHB0009                         LIST ADDRESS      @L1C 02-IHBOP
000044 47F0 C04C            0004C    78+         B     IHB0009A                          BYPASS LIST   @ZMC3742 02-IHBOP
000048                               79+IHB0009  DS    0F                                                       02-IHBOP
000048 80000083                      80+         DC    A(MSG+X'80000000')                                  @L2C 02-IHBOP
                      0004C          81+IHB0009A EQU   *                                                        02-IHBOP
00004C 58F0 C03C            0003C    82+         L     15,IHB0007B                       LOAD 15 WITH ENTRY ADR 01-CALL
000050 05EF                          83+         BALR  14,15                             BRANCH TO ENTRY POINT  01-CALL
                                     84 *     PUT   OUTFILE,message
000052                               85 ENDDATA  DS    0H
                                     86 *     CLOSE (OUTFILE)
                                     87          ENDIT
000052 58D0 D004            00004    89+         L     13,4(,13)                                                01-ENDIT

                                     91+* FREE DYNAMICALLY ACQUIRED SAVE AREA
000056 5810 D008            00008    92+         L     1,8(,13)                                                 01-ENDIT
                                     93+         FREEMAIN R,LV=72,A=(1)                                         01-ENDIT
00005A 4100 0048            00048    96+         LA    0,72(0,0)                         LOAD LENGTH            02-FREEM
00005E 4110 1000            00000    97+         LA    1,0(0,1)                          LOAD AREA ADDRESS      02-FREEM
000062 0A0A                          98+         SVC   10                                ISSUE FREEMAIN SVC     02-FREEM

                                    100+* RESTORE CALLING PROGRAMS REGISTERS, SET RETURN CODE, AND EXIT
                                    101+         RETURN (14,12),T,RC=0                                          01-ENDIT
000064 98EC D00C            0000C   104+         LM    14,12,12(13)                      RESTORE THE REGISTERS  02-RETUR
000068 9601 D00F      0000F         105+         OI    15(13),X'01'                      SET RETURN INDICATION  02-RETUR
00006C 41F0 0000            00000   106+         LA    15,0(0,0)                         LOAD RETURN CODE       02-RETUR
000070 07FE                         107+         BR    14                                RETURN                 02-RETUR
                                    108 ***  USING *,12
000072                              110 message DS CL17
                                                                                                               Page    5
  Active Usings: MAIN,R12
  Loc  Object Code    Addr1 Addr2  Stmt   Source Statement                                  HLASM R5.0  2011/12/07 13.02
000083 0011                         111 MSG   DC   AL2(MSGE-MSGB)
000085 A296948540958983             112 MSGB  DC   C'some nice message'
                      00096         113 MSGE  EQU  *
                                    115 *OUTFILE DCB  DSORG=PS,
                                    116 *               MACRF=(PM),
                                    117 *               DDNAME=OUTFILE,
                                    118 *               RECFM=FM,
                                    119 *               LRECL=17

000000                              123  END MAIN

                                                 Relocation Dictionary                                         Page    6
   Pos.Id   Rel.Id   Address  Type  Action                                                  HLASM R5.0  2011/12/07 13.02
  00000001 00000001 00000048   A 4     +
  00000001 00000002 0000003C   V 4    ST

                               Ordinary Symbol and Literal Cross Reference                                     Page    7
Symbol   Length   Value     Id    R Type Asm  Program   Defn References                     HLASM R5.0  2011/12/07 13.02
IHB0007B      4 0000003C 00000001     V  V                74   82
IHB0009       4 00000048 00000001     F  F                79   77
IHB0009A      1 0000004C 00000001     U                   81   78B
MAIN          1 00000000 00000001     J                    6   21U   66   123
MSG           2 00000083 00000001     R  A               111   80
MSGB         17 00000085 00000001     C  C               112  111
MSGE          1 00000096 00000001     U                  113  111
WRITE         1 00000000 00000002     T                   74   74

                                  Unreferenced Symbols Defined in CSECTs                                       Page    8
  Defn  Symbol                                                                              HLASM R5.0  2011/12/07 13.02
    58  BE
    53  BH
    54  BL
    55  BM
    56  BNE
    62  BNH
    60  BNL
    61  BNM
    64  BNO
    63  BNP
    57  BNZ
    51  BO
    52  BP
    59  BZ
    85  ENDDATA
   110  message
    35  R0
    36  R1
    45  R10
    46  R11
    47  R12
    48  R13
    49  R14
    50  R15
    37  R2
    38  R3
    39  R4
    40  R5
    41  R6
    42  R7
    43  R8
    44  R9

                                          Macro and Copy Code Source Summary                                   Page    9
Con Source                                        Volume    Members                        HLASM R5.0  2011/12/07 13.02
  L1 SYS1.MACLIB                                   VTMVSC    CALL     FREEMAIN GETMAIN  IHBOPLTX RETURN   SAVE
                                                             SYSSTATE
  L2 C432110.ASM.MACLIB                            VPWRKD    ENDIT    SETUP

                                                      Using Map                                                Page   10
                                                                                            HLASM R5.0  2011/12/07 13.02
  Stmt  -----Location----- Action ----------------Using----------------- Reg Max     Last Label and Using Text
          Count      Id           Type          Value    Range     Id        Disp    Stmt
    21  0000001E  00000001 USING  ORDINARY    00000000 00001000 00000001  12 0004C     82 MAIN,12

                                   General Purpose Register Cross Reference                                    Page   11
Register  References (M=modified, B=branch, U=USING, D=DROP, N=index)                      HLASM R5.0  2011/12/07 13.02
    0(0)      17    27M   32M   96M  104M
    1(1)      17    28M   30    31    32M   77M   92M   97M   97   104M
    2(2)      17   104M
    3(3)      17   104M
    4(4)      17   104M
    5(5)      17   104M
    6(6)      17   104M
    7(7)      17   104M
    8(8)      17   104M
    9(9)      17   104M
   10(A)      17   104M
   11(B)      17   104M
   12(C)      17    20M   21U  104M
   13(D)      17    30    31    32    33M   33    89M   89    92   104   105
   14(E)      17    83M  104M  107B
   15(F)      12    17    20    82M   83B  104M  106M

                                  Diagnostic Cross Reference and Assembler Summary                             Page   12
                                                                                            HLASM R5.0  2011/12/07 13.02
     No Statements Flagged in this Assembly
HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 5.0, PTF UK60812
SYSTEM: z/OS 01.09.00              JOBNAME: C432110A    STEPNAME: ASSEMBLE   PROCSTEP: (NOPROC)
Data Sets Allocated for this Assembly
Con DDname   Data Set Name                                Volume  Member
  P1 SYSIN    C432110.ASM                                  VPWRKC  LAB7
  L1 SYSLIB   SYS1.MACLIB                                  VTMVSC
  L2          C432110.ASM.MACLIB                           VPWRKD
     SYSLIN   SYS11341.T130225.RA000.C432110A.OBJ.H01
     SYSPRINT C432110.C432110A.JOB06549.D0000101.?

  32080K allocated to Buffer Pool       Storage required     516K
     29 Primary Input Records Read         6239 Library Records Read                  0 Work File Reads
      0 ASMAOPT Records Read                274 Primary Print Records Written         0 Work File Writes
      7 Object Records Written                0 ADATA Records Written
Assembly Start Time: 13.02.25 Stop Time: 13.02.25 Processor Time: 00.00.00.0108
Return Code 000

                                         High Level Assembler Option Summary                   (PTF UK60812)   Page    1
                                                                                            HLASM R5.0  2011/12/07 13.02
  No Overriding ASMAOPT Parameters
  No Overriding Parameters
  No Process Statements


  Options for this Assembly
  NOADATA
    ALIGN
  NOASA
    BATCH
    CODEPAGE(047C)
  NOCOMPAT
  NODBCS
  NODECK
    DXREF
    ESD
  NOEXIT
    FLAG(0,ALIGN,CONT,EXLITW,NOIMPLEN,NOPAGE0,PUSH,RECORD,NOSUBSTR,USING0)
  NOFOLD
  NOGOFF
  NOINFO
    LANGUAGE(EN)
  NOLIBMAC
    LINECOUNT(60)
    LIST(121)
    MACHINE(,NOLIST)
    MXREF(SOURCE)
    OBJECT
    OPTABLE(UNI,NOLIST)
  NOPCONTROL
  NOPESTOP
  NOPROFILE
  NORA2
  NORENT
    RLD
    RXREF
    SECTALGN(8)
    SIZE(MAX)
  NOSUPRWARN
    SYSPARM()
  NOTERM
  NOTEST
    THREAD
  NOTRANSLATE
    TYPECHECK(MAGNITUDE,REGISTER)
    USING(NOLIMIT,MAP,WARN(15))
  NOWORKFILE
    XREF(SHORT,UNREFS)

  No Overriding DD Names

                                              External Symbol Dictionary                                       Page    2
Symbol   Type   Id     Address  Length   Owner Id Flags Alias-of                            HLASM R5.0  2011/12/07 13.02
          PC 00000001 00000000 00000008             00

                                                                                                               Page    3
  Active Usings: None
  Loc  Object Code    Addr1 Addr2  Stmt   Source Statement                                  HLASM R5.0  2011/12/07 13.02
                                      2  WRITE    CSECT
** ASMA254I *** MNOTE ***             4+     12,***  IHB001  TYPE OPERAND REQ'D-NOT SPECIFIED                   02-IHBER
                                      5 *
                                      6 *   somehow move message
000000 05B0                           7      BALR  11,0
                 R:B  00002           8      USING *,11
000002 5820 1000            00000     9      L     2,0(,1)
                                     10 ***  OPEN  (OUTFILE,(OUTPUT))
                                     11 *     MVC   message,MSGB
                                     13 ***  CLOSE  OUTFILE
                                     14 ***     RETURN   (14,12),T,RC=0 ***
000006 07FE                          16       BR    14
                                     17       END

                                          Macro and Copy Code Source Summary                                   Page    4
Con Source                                        Volume    Members                        HLASM R5.0  2011/12/07 13.02
  L1 SYS1.MACLIB                                   VTMVSC    IHBERMAC WRITE

                                                      Using Map                                                Page    5
                                                                                            HLASM R5.0  2011/12/07 13.02
  Stmt  -----Location----- Action ----------------Using----------------- Reg Max     Last Label and Using Text
          Count      Id           Type          Value    Range     Id        Disp    Stmt
     8  00000002  00000001 USING  ORDINARY    00000002 00001000 00000001  11 00000        *,11

                                   General Purpose Register Cross Reference                                    Page    6
Register  References (M=modified, B=branch, U=USING, D=DROP, N=index)                      HLASM R5.0  2011/12/07 13.02
    0(0)    (no references identified)
    1(1)       9
    2(2)       9M
    3(3)    (no references identified)
    4(4)    (no references identified)
    5(5)    (no references identified)
    6(6)    (no references identified)
    7(7)    (no references identified)
    8(8)    (no references identified)
    9(9)    (no references identified)
   10(A)    (no references identified)
   11(B)       7M    8U
   12(C)    (no references identified)
   13(D)    (no references identified)
   14(E)      16B
   15(F)    (no references identified)

                                  Diagnostic Cross Reference and Assembler Summary                             Page    7
                                                                                            HLASM R5.0  2011/12/07 13.02
Statements Flagged
    4(L1:IHBERMAC,272)

      1 Statement  Flagged in this Assembly       12 was Highest Severity Code
HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 5.0, PTF UK60812
SYSTEM: z/OS 01.09.00              JOBNAME: C432110A    STEPNAME: ASSEMBLE   PROCSTEP: (NOPROC)
Data Sets Allocated for this Assembly
Con DDname   Data Set Name                                Volume  Member
  P1 SYSIN    C432110.ASM                                  VPWRKC  LAB7
  L1 SYSLIB   SYS1.MACLIB                                  VTMVSC
  L2          C432110.ASM.MACLIB                           VPWRKD
     SYSLIN   SYS11341.T130225.RA000.C432110A.OBJ.H01
     SYSPRINT C432110.C432110A.JOB06549.D0000101.?

  32080K allocated to Buffer Pool       Storage required     516K
     15 Primary Input Records Read          739 Library Records Read                  0 Work File Reads
      0 ASMAOPT Records Read                126 Primary Print Records Written         0 Work File Writes
      3 Object Records Written                0 ADATA Records Written
Assembly Start Time: 13.02.25 Stop Time: 13.02.25 Processor Time: 00.00.00.0017
Return Code 012


Can you give me some information to help me better make sense of this?
RISCCISCInstSet
User avatar
RISCCISCInstSet
 
Posts: 121
Joined: Mon Oct 17, 2011 1:46 pm
Has thanked: 146 times
Been thanked: 0 time

Re: Getting It To Run

Postby NicC » Thu Dec 08, 2011 4:33 am

2 things, neither of which will help you resolve the error:..

1 - you are trying to ASSEMBLE not compile
2 - your RUN step is being executed even though your LINK has not run. Add a condition code to the RUN step so that it will only execute if the LINK gives a satisfactory return code e.g. 0

As to your errors, I can spot at least one error message.
The problem I have is that people can explain things quickly but I can only comprehend slowly.
Regards
Nic

These users thanked the author NicC for the post:
RISCCISCInstSet (Mon Nov 12, 2012 5:18 am)
NicC
Global moderator
 
Posts: 3025
Joined: Sun Jul 04, 2010 12:13 am
Location: Pushing up the daisies (almost)
Has thanked: 4 times
Been thanked: 136 times

Re: Getting It To Run

Postby RISCCISCInstSet » Thu Dec 08, 2011 4:49 am

I think the most helpful piece of error information is -

OPEN MACRO MAY HAVE BEEN USED WITH INCONSISTENT MODE SPECIFICATIONS
RISCCISCInstSet
User avatar
RISCCISCInstSet
 
Posts: 121
Joined: Mon Oct 17, 2011 1:46 pm
Has thanked: 146 times
Been thanked: 0 time

Re: Getting It To Run

Postby BillyBoyo » Thu Dec 08, 2011 5:09 am

But the IEC is a run-time message.

You need to find this, and the reason for it:

** ASMA254I *** MNOTE ***


At the same time work out how you should have been able to find it easily.

Also if you look at the message after the one you spotted, another IEC, and you have another interesing "?" close by.

All clues pointing to what has gone wrong, but really the program is not long enough to make things particularly difficult, is it?

These users thanked the author BillyBoyo for the post:
RISCCISCInstSet (Mon Nov 12, 2012 5:18 am)
BillyBoyo
Global moderator
 
Posts: 3804
Joined: Tue Jan 25, 2011 12:02 am
Has thanked: 22 times
Been thanked: 265 times

Re: Getting It To Run

Postby BillyBoyo » Thu Dec 08, 2011 5:39 am

Rats. Lost a lot of typing again.

Just basic point now. As NicC has pointed out, you are running without the link having run, so you are running an old version. Fix your program, fix your JCL, put in some DDs for SYSOUT.

You may have made several changes to the program whilst not getting a clean assemble and running the old program, you may have been chasing your tail a while.

You are now in the situation of having to understand JCL and the job output as well. Welcome to the mainframe.

Although you might be an impatient person, there is no problem with doing the run as a seperate job, after you have checked manually that the assemble and link are OK. If you are wondering "how do I get the source back to four changes ago", I'm afraid you best bet is probably any output on the queue, or which you had printed....

These users thanked the author BillyBoyo for the post:
RISCCISCInstSet (Mon Nov 12, 2012 5:18 am)
BillyBoyo
Global moderator
 
Posts: 3804
Joined: Tue Jan 25, 2011 12:02 am
Has thanked: 22 times
Been thanked: 265 times

Re: Getting It To Run

Postby RISCCISCInstSet » Thu Dec 08, 2011 7:33 am

I think I may have the problem resolved now. I found a problem with my JCL (incorrect file reference). Thank you for your help.
RISCCISCInstSet
User avatar
RISCCISCInstSet
 
Posts: 121
Joined: Mon Oct 17, 2011 1:46 pm
Has thanked: 146 times
Been thanked: 0 time

Re: Getting It To Run

Postby BillyBoyo » Thu Dec 08, 2011 1:40 pm

Your main problem was running an old version of the program because newer versions of the program had failed to assemble/link correctly.

The old version you were running had a butchered OPEN macro/overwritten areas which was attempting to do something with a ddname containing zeros, commas and something else, possibly spaces. You have duff JCL anyway (you can't CATLG a dataset that is already CATLG'd) and have no "listing" dds in your run step You probably continued amending your programming without reaslising you weren't getting a new version, and thus made changes that were nothing to do with any problem, because the program wouldn't assemble.

Until you get it to assemble, you can't possibly regard the thing as fixed.

These users thanked the author BillyBoyo for the post:
RISCCISCInstSet (Mon Nov 12, 2012 5:18 am)
BillyBoyo
Global moderator
 
Posts: 3804
Joined: Tue Jan 25, 2011 12:02 am
Has thanked: 22 times
Been thanked: 265 times


Return to Stupid Questions