IBM Mainframe Forum

by **hatam** » Fri Nov 12, 2021 1:04 am

Hi,
I'm trying to use some simple I/O macros introduced in book "Assembler Language Programming for IBM Z System Servers" (Macros introduced in Appendix B section). But when I'm tryin to run the sample program, as soon as program reach the first macro system dump occurs. Also there is IEF686I in the output. I'm a student learning IBM assembly language and I'm not familiar with JCL and I don't know if I'm doing something wrong in it. Here is the JCL:

Select all

//XXXXXX     JOB   CLASS=A,MSGCLASS=T,MSGLEVEL=(1,1)
//           EXEC  PROC=ASMACLG
//SYSPRINT   DD    SYSOUT=*
//C.SYSLIB   DD    DSN=SYS1.MACLIB,DISP=SHR
//           DD    DSN=HATAM.MACLIB.SRC,DISP=SHR
//C.SYSIN    DD    DSN=HATAM.ASM.SRC(MACSAMP),DISP=SHR
//G.SYSPRINT DD    SYSOUT=*
//G.SYSIN    DD    *
 +123456 * FIRST RECORD
 -000034567890 * SECOND AND LAST RECORD
/*
 

Note that HATAM.MACLIB.SRC is the data set containing i/o macros ($$GENIO, CONVERTI, ...). And here is the output:

Select all

1                         J E S 2  J O B  L O G  --  S Y S T E M  S Y S 1  --  N O D E  N 1
0
 19.05.18 JOB00756 ---- THURSDAY,  11 NOV 2021 ----
 19.05.18 JOB00756  IRR010I  USERID IBMUSER  IS ASSIGNED TO THIS JOB.
 19.05.18 JOB00756  IEF677I WARNING MESSAGE(S) FOR JOB XXXXXX   ISSUED
 19.05.18 JOB00756  ICH70001I IBMUSER  LAST ACCESS AT 18:48:30 ON THURSDAY, NOVEMBER 11, 2021
 19.05.18 JOB00756  $HASP373 XXXXXX   STARTED - INIT 1    - CLASS A - SYS SYS1
 19.05.18 JOB00756  IEF403I XXXXXX - STARTED - TIME=19.05.18
 19.05.18 JOB00756  IEA995I SYMPTOM DUMP OUTPUT  159
    159             SYSTEM COMPLETION CODE=0C2  REASON CODE=00000002
    159              TIME=19.05.18  SEQ=00021  CPU=0000  ASID=001A
    159              PSW AT TIME OF ERROR  078D1000   00007010  ILC 4  INTC 02
    159                ACTIVE LOAD MODULE           ADDRESS=00007000  OFFSET=00000010
    159                NAME=GO
    159                DATA AT PSW  0000700A - 1EEF80FD  DE080000  70000000
    159                GR 0: FD000008   1: 00000000
    159                   2: 00000040   3: 008D79D4
    159                   4: 008D79B0   5: 008FF350
    159                   6: 008C6FE0   7: FD000000
    159                   8: 008FCC80   9: 008CFCC8
    159                   A: 00000000   B: 008FF350
    159                   C: 834C4BAA   D: 00006008
    159                   E: 80FE507C   F: 00007274
    159              END OF SYMPTOM DUMP
 19.05.18 JOB00756  IEF450I XXXXXX G - ABEND=S0C2 U0000 REASON=00000002  160
    160                     TIME=19.05.18
 19.05.18 JOB00756  IEF404I XXXXXX - ENDED - TIME=19.05.18
 19.05.18 JOB00756  $HASP395 XXXXXX   ENDED
0------ JES2 JOB STATISTICS ------
-  11 NOV 2021 JOB EXECUTION DATE
-           12 CARDS READ
-          695 SYSOUT PRINT RECORDS
-            0 SYSOUT PUNCH RECORDS
-           42 SYSOUT SPOOL KBYTES
-         0.01 MINUTES EXECUTION TIME
         1 //XXXXXX     JOB   CLASS=A,MSGCLASS=T,MSGLEVEL=(1,1)                    JOB00756
         2 //           EXEC  PROC=ASMACLG
         3 XXASMACLG  PROC
           XX*
           XX*********************************************************************
           XX*                                                                   *
           XX*  Licensed Materials - Property of IBM                             *
           XX*                                                                   *
           XX*  5696-234   5694-A01                                              *
           XX*                                                                   *
           XX*  Copyright IBM Corporation 1992, 2008 All Rights Reserved.        *
           XX*                                                                   *
           XX*  US Government Users Restricted Rights - Use, duplication         *
           XX*  or disclosure restricted by GSA ADP Schedule Contract            *
           XX*  with IBM Corp.                                                   *
           XX*                                                                   *
           XX*********************************************************************
           XX*                                                                   *
           XX*  ASMACLG                                                          *
           XX*                                                                   *
           XX*  This procedure runs the High Level Assembler, link-edits the     *
           XX*  newly assembled program and runs the program after the           *
           XX*  link-edit is accomplished.                                       *
           XX*                                                                   *
           XX*********************************************************************
           XX*
         4 XXC        EXEC PGM=ASMA90
           XX*
         5 //C.SYSLIB   DD    DSN=SYS1.MACLIB,DISP=SHR
           X/SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR
         6 //           DD    DSN=SYS1.MODGEN,DISP=SHR
         7 //           DD    DSN=HATAM.MACLIB.SRC,DISP=SHR
         8 XXSYSUT1   DD  DSN=&&SYSUT1,SPACE=(4096,(120,120),,,ROUND),
           XX             UNIT=SYSALLDA,BUFNO=1
         9 //SYSPRINT   DD    SYSOUT=*
           X/SYSPRINT DD  SYSOUT=*
        10 XXSYSLIN   DD  DSN=&&OBJ,SPACE=(3040,(40,40),,,ROUND),
           XX             UNIT=SYSALLDA,DISP=(MOD,PASS),
           XX             BLKSIZE=3040,LRECL=80,RECFM=FB,BUFNO=1
           XX*
        11 //C.SYSIN    DD    DSN=HATAM.ASM.SRC(MACSAMP),DISP=SHR
        12 XXL        EXEC PGM=HEWL,PARM='MAP,LET,LIST',COND=(8,LT,C)
           XX*
        13 XXSYSLIN   DD  DSN=&&OBJ,DISP=(OLD,DELETE)
        14 XX         DD  DDNAME=SYSIN
        15 XXSYSLMOD  DD  DISP=(,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1,1)),
           XX             DSN=&&GOSET(GO)
        16 XXSYSUT1   DD  DSN=&&SYSUT1,SPACE=(1024,(120,120),,,ROUND),
           XX             UNIT=SYSALLDA,BUFNO=1
        17 XXSYSPRINT DD  SYSOUT=*
           XX*
        18 XXG        EXEC PGM=*.L.SYSLMOD,COND=((8,LT,C),(8,LT,L))
           XX*
        19 //G.SYSPRINT DD    SYSOUT=*
        20 //G.SYSIN    DD    *
  STMT NO. MESSAGE
         2 IEFC001I PROCEDURE ASMACLG WAS EXPANDED USING SYSTEM LIBRARY HLA.SASMSAM1
        18 IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR STEP WAS NOT RESOLVED
 ICH70001I IBMUSER  LAST ACCESS AT 18:48:30 ON THURSDAY, NOVEMBER 11, 2021
 IEF236I ALLOC. FOR XXXXXX C
 IEF237I 0A81 ALLOCATED TO SYSLIB
 IEF237I 0A81 ALLOCATED TO
 IEF237I 0A81 ALLOCATED TO
 IGD100I 0A95 ALLOCATED TO DDNAME SYSUT1   DATACLAS (        )
 IEF237I JES2 ALLOCATED TO SYSPRINT
 IGD100I 0A95 ALLOCATED TO DDNAME SYSLIN   DATACLAS (        )
 IEF237I 0A81 ALLOCATED TO SYSIN
 IEF142I XXXXXX C - STEP WAS EXECUTED - COND CODE 0000
 IEF285I   SYS1.MACLIB                                  KEPT
 IEF285I   VOL SER NOS= ZARES1.
 IEF285I   SYS1.MODGEN                                  KEPT
 IEF285I   VOL SER NOS= ZARES1.
 IEF285I   HATAM.MACLIB.SRC                             KEPT
 IEF285I   VOL SER NOS= ZARES1.
 IEF285I   SYS21315.T190518.RA000.XXXXXX.SYSUT1.H01     DELETED
 IEF285I   VOL SER NOS= ZASYS1.
 IEF285I   IBMUSER.XXXXXX.JOB00756.D0000102.?           SYSOUT
 IEF285I   SYS21315.T190518.RA000.XXXXXX.OBJ.H01        PASSED
 IEF285I   VOL SER NOS= ZASYS1.
 IEF285I   HATAM.ASM.SRC                                KEPT
 IEF285I   VOL SER NOS= ZARES1.
 IEF373I STEP/C       /START 2021315.1905
 IEF374I STEP/C       /STOP  2021315.1905 CPU    0MIN 00.19SEC SRB    0MIN 00.02SEC VIRT   220K SYS   276K EXT   32768K SYS   10732K
 IEF236I ALLOC. FOR XXXXXX L
 IEF237I 0A95 ALLOCATED TO SYSLIN
 IEF237I DMY  ALLOCATED TO
 IGD100I 0A95 ALLOCATED TO DDNAME SYSLMOD  DATACLAS (        )
 IGD100I 0A95 ALLOCATED TO DDNAME SYSUT1   DATACLAS (        )
 IEF237I JES2 ALLOCATED TO SYSPRINT
 IEF142I XXXXXX L - STEP WAS EXECUTED - COND CODE 0000
 IEF285I   SYS21315.T190518.RA000.XXXXXX.OBJ.H01        DELETED
 IEF285I   VOL SER NOS= ZASYS1.
 IEF285I   SYS21315.T190518.RA000.XXXXXX.GOSET.H01      PASSED
 IEF285I   VOL SER NOS= ZASYS1.
 IEF285I   SYS21315.T190518.RA000.XXXXXX.SYSUT1.H01     DELETED
 IEF285I   VOL SER NOS= ZASYS1.
 IEF285I   IBMUSER.XXXXXX.JOB00756.D0000103.?           SYSOUT
 IEF373I STEP/L       /START 2021315.1905
 IEF374I STEP/L       /STOP  2021315.1905 CPU    0MIN 00.05SEC SRB    0MIN 00.00SEC VIRT   104K SYS   276K EXT    1640K SYS   10724K
 IEF236I ALLOC. FOR XXXXXX G
 IEF237I 0A95 ALLOCATED TO PGM=*.DD
 IEF237I JES2 ALLOCATED TO SYSPRINT
 IEF237I JES2 ALLOCATED TO SYSIN
 IEA995I SYMPTOM DUMP OUTPUT
 SYSTEM COMPLETION CODE=0C2  REASON CODE=00000002
  TIME=19.05.18  SEQ=00021  CPU=0000  ASID=001A
  PSW AT TIME OF ERROR  078D1000   00007010  ILC 4  INTC 02
    ACTIVE LOAD MODULE           ADDRESS=00007000  OFFSET=00000010
    NAME=GO
    DATA AT PSW  0000700A - 1EEF80FD  DE080000  70000000
    GR 0: FD000008   1: 00000000
       2: 00000040   3: 008D79D4
       4: 008D79B0   5: 008FF350
       6: 008C6FE0   7: FD000000
       8: 008FCC80   9: 008CFCC8
       A: 00000000   B: 008FF350
       C: 834C4BAA   D: 00006008
       E: 80FE507C   F: 00007274
  END OF SYMPTOM DUMP
 IEF472I XXXXXX G - COMPLETION CODE - SYSTEM=0C2 USER=0000 REASON=00000002
 IEF285I   SYS21315.T190518.RA000.XXXXXX.GOSET.H01      KEPT
 IEF285I   VOL SER NOS= ZASYS1.
 IEF285I   IBMUSER.XXXXXX.JOB00756.D0000104.?           SYSOUT
 IEF285I   IBMUSER.XXXXXX.JOB00756.D0000101.?           SYSIN
 IEF373I STEP/G       /START 2021315.1905
 IEF374I STEP/G       /STOP  2021315.1905 CPU    0MIN 00.04SEC SRB    0MIN 00.00SEC VIRT     8K SYS   256K EXT       0K SYS   10780K
 IEF237I 0A95 ALLOCATED TO SYS00001
 IEF285I   SYS21315.T190518.RA000.XXXXXX.R0100017       KEPT
 IEF285I   VOL SER NOS= ZASYS1.
 IEF285I   SYS21315.T190518.RA000.XXXXXX.GOSET.H01      DELETED
 IEF285I   VOL SER NOS= ZASYS1.
 IEF375I  JOB/XXXXXX  /START 2021315.1905
 IEF376I  JOB/XXXXXX  /STOP  2021315.1905 CPU    0MIN 00.28SEC SRB    0MIN 00.02SEC
1                                         High Level Assembler Option Summary                   (PTF UK37157)   Page    1
-                                                                                            HLASM R6.0  2021/11/11 19.05
0  No Overriding ASMAOPT Parameters
   No Overriding Parameters
   No Process Statements


   Options for this Assembly
0  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
1                                              External Symbol Dictionary                                       Page    2
-Symbol   Type   Id     Address  Length   Owner Id Flags Alias-of                            HLASM R6.0  2021/11/11 19.05
0IOSAMP    SD 00000001 00000000 00000251             00
 $$PRTOUT  ER 00000002
 $$IOSECT  SD 00000003 00000258 00000D6C             01
 $$READCD  LD          0000029C           00000003
 $$PRTLIN  LD          00000268           00000003
 $$PRTOUT  LD          00000274           00000003
 $$DMPOUT  LD          00000258           00000003
 $$CNVRTO  LD          00000284           00000003
 $$CNVRTI  LD          00000290           00000003
 $$READCD  ER 00000004
 $$PRTLIN  ER 00000005
 $$CNVRTI  ER 00000006
 $$CNVRTO  ER 00000007
 $$DMPOUT  ER 00000008
1                                                                                                               Page    3
   Active Usings: None
0  Loc  Object Code    Addr1 Addr2  Stmt   Source Statement                                  HLASM R6.0  2021/11/11 19.05
0                                      1         PRINT NOGEN
 000000                00000 00251     2 IOSAMP  CSECT ,
                  R:F  00000           3         USING *,15
 000000 1B11                           4         SR    1,1
                                       5 *
 000002 90EF F00C            0000C     6         PRINTOUT
 000024 0700                         719 READ    READCARD CARDOUT,EOF
 00004A 4110 1001            00001   728         LA    1,1(0,1)
 00004E 90EF F058            00058   729         PRINTOUT 1
 00007C 0700                         740         PRINTLIN OUT,LINELEN
 00009C 0700                         748         CONVERTI 2,CARDOUT
 0000BC 0700                         756         CONVERTO 2,OUTDATA
 0000DC 0700                         764         PRINTLIN OUTDATA,L'OUTDATA
 0000FC 47F0 F026            00026   772         B     READ
 000100 0700                         773 EOF     DUMPOUT IOSAMP,LAST
 000128 B982 0033                    782         XGR   3,3
 00012C B946 0030                    783         BCTGR 3,0
 000130 0700                         784         PRINTOUT 1,19,32,*
 000176 D6C9D5D7E4E340D9             799 OUT  DC   C'OINPUT RECORD = "'
 000187 4040404040404040             800 CARDOUT DC CL80' ',C'"'
                       00062         801 LINELEN EQU *-OUT
 0001D8                              802 OUTDATA DS CL121
                       00251         803 LAST    EQU *
                                     804         END
1                                                 Relocation Dictionary                                         Page    4
-   Pos.Id   Rel.Id   Address  Type  Action                                                  HLASM R6.0  2021/11/11 19.05
0  00000001 00000001 00000019   A 3     +
   00000001 00000001 0000003C   A 4     +
   00000001 00000001 00000065   A 3     +
   00000001 00000001 00000119   A 3     +
   00000001 00000001 00000149   A 3     +
   00000001 00000002 00000014   V 4    ST
   00000001 00000002 00000060   V 4    ST
   00000001 00000002 00000144   V 4    ST
   00000001 00000004 00000039   V 3    ST
   00000001 00000005 00000090   V 4    ST
   00000001 00000005 000000F0   V 4    ST
   00000001 00000006 000000B1   V 3    ST
   00000001 00000007 000000D0   V 4    ST
   00000001 00000008 00000114   V 4    ST
   00000003 00000003 0000033D   A 3     +
   00000003 00000003 00000745   A 3     +
   00000003 00000003 00000749   A 3     +
   00000003 00000003 0000074D   A 3     +
   00000003 00000003 00000751   A 3     +
   00000003 00000003 00000779   A 3     +
   00000003 00000003 000007D5   A 3     +
   00000003 00000003 000007D9   A 3     +
1                               Ordinary Symbol and Literal Cross Reference                                     Page    5
-Symbol   Length   Value     Id    R Type Asm  Program   Defn References                     HLASM R6.0  2021/11/11 19.05
0$$            1 000002A8 00000003     U                   45  207M  213M  214M  215M  219B  232M  235M  239   241   248M
                                                               249M  251M  252M  254M  257M  260   262   273   275   283M
                                                               286   293M  304M  305M  306   306   309   314   315   319M
                                                               321M  321   322M  326M  327M  328   329   337M  338M  339M
                                                               341M  342M  342   343   343   346   351   352   357M  362M
                                                               363   366   367M  368   370M  371   375M  375   381M  382
                                                               386   387M  389M  389   404   405M  407   414M  415M  417
                                                               418M  420   423   426M  427M  428   429   430   435M  438M
                                                               438   439   441M  441   442M  444M  444   445   446   449M
                                                               450   451   453   455   460M  465   467   469M  469   473M
                                                               473   474M  474   477M  478M  478   479M  479   483   484M
                                                               489   493M  497M  498M  500   501M  502   507   511M  513M
                                                               514M  515   519M  520   524   529M  530M  531M  532   538
                                                               541M  543M  543   545M  547M  547   550   552M  554   570M
                                                               572M  572   573   574M  575M  576M  576   577M  579M  581
                                                               600M  601M  602M  605   608   612M  614   619   628M  631M
                                                               631   632   634M  634   635M  635   636M  636   638M  638
                                                               641   645   648   652M  655   662M  663M  663   664   667
                                                               668M  669M  669   670   671M  671   676M  677   678M  679
                                                               680M  680   681   682M  682   689   692   693   696   698M
                                                               700   705   706   712M  712   714M  714   715M  715
 $$ACALL       4 00000338 00000003     F  F                50  215M  636
 $$ATLOC      10 00000467 00000003     C  C                80  635   635   638M
 $$CC         26 00000390 00000003     C  C                68  453   453
 $$CCV         1 000003AA 00000003     C  C                69  213M  214M
 $$CNVRTI      4 00000290 00000003     I                   36   21
 $$CNVRTI      1 00000000 00000006     T                  753  753
 $$CNVRTO      4 00000284 00000003     I                   33   21
 $$CNVRTO      1 00000000 00000007     T                  761  761
 $$CVIAEn      4 00000354 00000003     F  F                57  283M  370M  381M  386
 $$CVIASt      4 00000350 00000003     F  F                56  249M  252M  257M  286   293M
 $$CVIErC      2 00000ABA 00000003     I                  380  243B  277B
 $$CVIErN      6 00000AA6 00000003     I                  375  372B
 $$CVIErX      6 00000ADC 00000003     I                  389  383B
 $$CVIEr1      4 00000A92 00000003     I                  370  230B  298B  302B  308B  310B  344B  347B
 $$CVIEr2      2 00000AB8 00000003     I                  379  264B  265B  266B  267B
 $$CVIFlg      1 0000038F 00000003     X  X                67  232M  235M  248M  251M  254M  309   315   329   346   352
                                                               371   382
 $$CVIM        4 000008BC 00000003     I                  251  246B
 $$CVIMC      39 000003E3 00000003     C  C                75  389   389
 $$CVIMN      46 0000040A 00000003     C  C                76  375   375
 $$CVIM32      6 00000379 00000003     P  P                62  306
 $$CVIM64     10 0000037F 00000003     P  P                63  343
 $$CVIP        4 000008B0 00000003     I                  248  245B
 $$CVIRet      4 00000AD0 00000003     I                  386  320B  358B  369B  374B  385B
 $$CVISt1      2 0000088A 00000003     I                  238  234B  244B
 $$CVISt2      2 000008D8 00000003     I                  259  250B  253B
 $$CVISt3      2 0000090A 00000003     I                  272  258B  281B
 $$CVISt4      2 00000930 00000003     I                  282  278B  279B  280B
 $$CVISt6      6 000009C0 00000003     I                  321  300B
 $$CVIS1A      4 000008C8 00000003     I                  254  247B
 $$CVIS4A      4 0000093E 00000003     I                  287  292B
 $$CVIS4B      4 00000954 00000003     I                  293  288B  290B
 $$CVIS4C      4 00000932 00000003     I                  283  269B  271B
 $$CVIS5A      4 000009A6 00000003     I                  314  307B
1                               Ordinary Symbol and Literal Cross Reference                                     Page    6
-Symbol   Length   Value     Id    R Type Asm  Program   Defn References                     HLASM R6.0  2021/11/11 19.05
0$$CVIS6B      2 000009F8 00000003     I                  333  324B
 $$CVIS6C      6 00000A48 00000003     I                  351  345B
 $$CVITbl    256 0000062C 00000003     X  X                94  239   260   273
 $$CVIV32      4 000009B4 00000003     I                  318  313B  316B
 $$CVIV64      2 00000A5A 00000003     I                  355  330B  332B  350B  353B
 $$CVI64L      2 00000A68 00000003     I                  359  356B
 $$CVTO        4 00000AEE 00000003     I                  393  222B
 $$CVTOD       4 00000B2E 00000003     I                  410  401B
 $$CVTOF       6 00000B62 00000003     I                  423  411B
 $$CVTX        4 00000B8E 00000003     I                  433  397B  408B  421B
 $$CVT4        4 00000F1A 00000003     I                  667  406B  488B  542B
 $$CVT8        6 00000F3C 00000003     I                  676  419B  506B  546B
 $$DC          5 000003DA 00000003     C  C                73  441
 $$DCBXIT      1 0000033C 00000003     X  X                51  142   184
 $$DEC         4 00000D4A 00000003     I                  535  521B
 $$DECD        6 00000D74 00000003     I                  545  536B
 $$DMPOUT      4 00000258 00000003     I                   22   20
 $$DMPOUT      1 00000000 00000008     T                  778  778
 $$DUMP        4 00000DA0 00000003     I                  556  456B
 $$DUMPA       4 00000DCA 00000003     I                  570  587B
 $$DUMPB       6 00000DF4 00000003     I                  579  584B
 $$DUMPTB      1 00000516 00000003     C  C                88  576
 $$DWORD       8 00000368 00000003     D  D                60  305M  306   314   321M  321   327M  328   341M  342M  343
                                                               351   363   366   442M  444   449M  451   477M  479   514M
                                                               515   570M  572   579M  581   636M  638   668M  671   678M
                                                               682   714M  714   715M
 $$EFADDR      4 00000F6E 00000003     I                  687  224B  227B  394B  399B  472B  557B  560B  590B  598B  617B
 $$EOF         4 00000E8C 00000003     I                  626  182
 $$EOFERR      6 00000EA0 00000003     I                  631  615B  627B
 $$EX         27 00000438 00000003     C  C                77   81   469M  631M  634   634
 $$FFF         4 00000330 00000003     A  A                48  693
 $$FLGS        1 0000038E 00000003     X  X                66   23M   30M  439   455   460M  465   520   524   538   550
                                                               602M
 $$FLGSIO      1 00000741 00000003     X  X               106  605   612M  614   628M  645   652M  696   698M
 $$FLG2        1 0000038D 00000003     X  X                65  435M  467   632
 $$F000        4 00000334 00000003     A  A                49  689
 $$GETADD      4 00000C3E 00000003     I                  471  466B
 $$GPR         3 000003B6 00000003     C  C                71  473   473
 $$HEXCV       6 00000FB6 00000003     I                  714  443B  571B  580B  637B
 $$INDCB       4 000007B4 00000003     F  F               170  114   122   619
 $$INOPN       4 00000E68 00000003     I                  613  606B
 $$IOSECT      1 00000258 00000003     J                   17   18    19
 $$ISSYM       6 00000D0C 00000003     I                  519  510B
 $$LINP        4 00000E1C 00000003     I                  589  220B
 $$LOAD13      4 000002A4 00000003     I                   43   25B   28B   32B   35B   38B
 $$LOCP        1 00000028 00000003 A   U                   81  635M  638M
 $$MOVE        6 00000814 00000003     I                  207   43B
 $$NOHDR       4 00000BF8 00000003     I                  455  437B
 $$OPNOUT      4 00000F8C 00000003     I                  696  218B  376B  390B
 $$OPNRD       4 00000E56 00000003     I                  605  217B
 $$OUDCB       4 00000754 00000003     F  F               128  110   118   705
 $$OUTBUF    121 00000472 00000003     C  C                83  375M  389M  438M  441M  444M  445   469M  473M  474M  478M
                                                               479M  493M  511M  519M  529M  531M  532   543M  547M  572M
                                                               573   574M  575M  576M  577M  601M  631M  634M  635M  638M
                                                               655   663M  664   706   712M  712
1                               Ordinary Symbol and Literal Cross Reference                                     Page    7
-Symbol   Length   Value     Id    R Type Asm  Program   Defn References                     HLASM R6.0  2021/11/11 19.05
0$$OUTLP       6 00000C0C 00000003     I                  460  551B
 $$PAT1        4 000004EB 00000003     X  X                84  478   478   479
 $$PAT2       12 000004EF 00000003     X  X                85  407   489   543   669   669   670   671
 $$PAT3       21 000004FB 00000003     X  X                86  105   420   507   547   680   680   681   682
 $$PAT4        6 00000510 00000003     X  X                87  450   450   451   452
 $$PC         33 000003B9 00000003     C  C                72  438   438   444M  445
 $$PEND       10 0000045D 00000003     C  C                79   81   469   469
 $$PHEX        4 00000EEA 00000003     I                  655  486B  504B  517B  526B
 $$PNPUT       4 00000D84 00000003     I                  548  490B  508B  518B  527B  534B  544B
 $$PODO        6 00000B96 00000003     I                  435  221B
 $$PRCLOS      4 0000074C 00000003     F  F               116  641
 $$PROPEN      4 00000744 00000003     F  F               108  700
 $$PRTLIN      4 00000268 00000003     I                   26   20
 $$PRTLIN      1 00000000 00000005     T                  745  745   769
 $$PRTOUT      4 00000274 00000003     I                   29   20
 $$PRTOUT      1 00000000 00000002     T                   11   11   734   789
 $$PUT         4 00000D88 00000003     I                  549  604B
 $$PUTLIN      4 00000F9E 00000003     I                  705  377B  391B  454B  549B  585B  639B
 $$RCVT       21 0000072C 00000003     X  X               105  407   420   489   507   543   547   669M  670   671M  680M
                                                               681   682M
 $$RDATA       8 00000358 00000003     D  D                58  405M  415M  418M  427M  428   429   484M  498M  501M  502
                                                               541M  545M  667   677
 $$RDCLOS      4 00000750 00000003     F  F               120  648
 $$RDOPEN      4 00000748 00000003     F  F               112  608
 $$READCD      4 0000029C 00000003     I                   39   20
 $$READCD      1 00000000 00000004     T                  724  724
 $$REGS        4 000002F0 00000003     F  F                47   22M   26M   29M   33M   36M   39M  207M  319M  357M  367M
                                                               387M  404   417   483   500   552M  554   692
 $$REOF       10 00000453 00000003     C  C                78  631   631
 $$RETURN      4 00000D94 00000003     I                  552  388B  434B  459B  464B  588B  625B  630B
 $$SAVG0       8 00000360 00000003     D  D                59  322M  368   676M  679
 $$ST         11 000003AB 00000003     C  C                70  446   446   447
 $$STAR        4 00000C24 00000003     I                  465  462B
 $$SYM2        2 00000D30 00000003     H  H               528  525B
 $$TERM        4 00000EA6 00000003     I                  632  468B  470B
 $$TERM1       4 00000ECE 00000003     I                  641  378B  392B  633B
 $$TERM2       4 00000EE2 00000003     I                  652  646B
 $$TRTAB      16 0000061C 00000003     C  C                93  430   663   715
 $$TSTFLT      4 00000CE4 00000003     I                  509  492B
 $$TSTGGR      4 00000C98 00000003     I                  491  481B
 $$XQUOTE      4 000003DF 00000003     C  C                74  423   474   474
 $$XTemp       4 00000389 00000003     X  X                64  338M  339M  342
 CARDOUT      80 00000187 00000001     C  C               800  724   753
 EOF           4 00000102 00000001     I                  775  726B
 IOSAMP        1 00000000 00000001     J                    2  717   779
 LAST          1 00000251 00000001     U                  803  779
 LINELEN       1 00000062 00000001 A   U                  801  745
 OUT          17 00000176 00000001     C  C               799  745   801
 OUTDATA     121 000001D8 00000001     C  C               802  761   769   769
 READ          4 00000026 00000001     I                  721  772B
1                                          Macro and Copy Code Source Summary                                   Page    8
- Con Source                                        Volume    Members                        HLASM R6.0  2021/11/11 19.05
0  L1 SYS1.MACLIB                                   ZARES1    CLOSE    DCB      GET      IHBINNRA IHB01    OPEN     PUT
   L3 HATAM.MACLIB.SRC                              ZARES1    $$GENIO  CONVERTI CONVERTO DUMPOUT  PRINTLIN PRINTOUT
                                                              READCARD
1                                                      Using Map                                                Page    9
-                                                                                            HLASM R6.0  2021/11/11 19.05
   Stmt  -----Location----- Action ----------------Using----------------- Reg Max     Last Label and Using Text
           Count      Id           Type          Value    Range     Id        Disp    Stmt
0     3  00000000  00000001 USING  ORDINARY    00000000 00001000 00000001  15 00144    787 *,15
1                                   General Purpose Register Cross Reference                                    Page   10
- Register  References (M=modified, B=branch, U=USING, D=DROP, N=index)                      HLASM R6.0  2021/11/11 19.05
0    0(0)      22    26    29    33    36    39   210M  211M  212M  213   284M  285M  289   295M  296   311M  312M  314M
              317M  317   319   322   328M  331M  331   333M  334M  335   336M  337   348M  349M  349   351M  354M  354
              357   359M  361   363M  364   366M  367   368M  386M  387   404M  405   415   417M  418   448M  449   475M
              476M  477   494M  495   498   554M  564M  566   578M  584M  592   667M  668   676   677M  678   679M  687M
              688M  692M  693M  694   706M
     1(1)       4M    4    22    26    29    33    36    39    52    52    54    54   239M  260M  273M  294M  305   327
              338   340M  340N  341   364M  365M  367N  445M  446   447M  447   450   451   452M  452   453   554M  568M
              569   573M  581   583M  583   608M  619M  623   641M  648M  670M  671M  673M  674   681M  682M  684M  685
              700M  705M  710   728M  728
     2(2)      22    26    29    33    36    39   223M  225   226M  229   231   238M  238   239M  241M  241N  242B  255M
              256M  257   259M  259   260M  262M  262N  263B  272M  272   273M  275M  275N  276B  286M  287   289   291M
              291   293   294   295   296M  297   301   303M  304   323   325M  326   333   335M  340   393M  395   396
              398M  407   420   423   428   429   430   431   471M  476   480   482M  483M  483N  484   491   495M  496M
              497   499M  500M  500N  501   502M  509   512M  513   515M  531   537   540   545   554M  556M  558   559M
              562   565   566M  569M  570   575   579   582M  586   589M  597M  601   616M  658   660M  660   688   689M
              691M  692N  694M
     3(3)      22    26    29    33    36    39   225M  239   240M  240   249   252   255   260   261M  261   268   270
              273   274M  274   282M  283   284   370   379M  380M  381   487   489   505   507   532M  533   537M  540M
              541   554M  592M  594   596M  599M  600   655M  658   659M  659   664M  665   782M  782   783M
     4(4)      22    26    29    33    36    39   231M  299   318M  319N  355M  355   359   360M  361M  362   554M  591M
              594   596   742   766
     5(5)      22    26    29    33    36    39   554M  742   766
     6(6)      22    26    29    33    36    39   554M  742   766
     7(7)      22    26    29    33    36    39   218M  224M  227M  376M  377M  390M  391M  394M  399M  406M  419M  443M
              454M  472M  486M  488M  504M  506M  517M  526M  542M  546M  549M  554M  557M  560M  571M  580M  585M  590M
              598M  617M  637M  639M  666B  672B  675B  683B  686B  695B  697B  704B  713B  716B  742   766
     8(8)      22    26    29    33    36    39   554M  567M  568   582   656M  657   661M  742   766
     9(9)      22    26    29    33    36    39   395M  400   402M  403M  404N  410   412M  413M  414   416M  417N  424M
              425M  426   485M  503M  516M  522M  522   523M  530   532N  554M  558M  562   564   565M  586   656   657M
              662   664N  742   766
    10(A)      22    26    29    33    36    39   209M  210   373   384   552   553   554M  616   626   742   766
    11(B)      22    26    29    33    36    39   208M  209   215   223   226   228M  228   393   398   433M  433   435
              436   442   448   457   458M  458   460   461   461   463M  463   471   519   523   535   548M  548   552
              554M  556   559   561M  561   589   597   603M  603   613M  613   629   742   766
    12(C)      22    24M   26    27M   29    31M   33    34M   36    37M   39    40M   40   216M  216   219N  554M  742
              766
    13(D)      22    26    29    33    36    39    43M  207   213   214   215   219   232   239   241   248   249   251
              252   254   257   260   262   273   275   283   286   293   304   305   306   306   309   314   315   319
              321   322   326   327   328   329   337   338   341   342   342   343   346   351   352   357   362   363
              366   367   368   370   371   375   375   381   382   386   387   389   389   404   405   407   414   415
              417   418   420   423   426   427   428   429   430   435   438   438   439   441   441   442   444   444
              445   446   449   450   451   453   455   460   465   467   469   469   473   473   474   474   477   478
              478   479   479   483   484   489   493   497   498   500   501   502   507   511   513   514   515   519
              520   524   529   530   531   532   538   541   543   543   545   547   547   550   552   554M  554   570
              572   572   573   574   575   576   576   577   579   581   600   601   602   605   608   612   614   619
              628   631   631   632   634   634   635   635   636   636   638   638   641   645   648   652   655   662
              663   663   664   667   668   669   669   670   671   671   676   677   678   679   680   680   681   682
              682   689   692   693   696   698   700   705   706   712   712   714   714   715   715   742   766
    14(E)       8    10M   13M   22    26    29    33    36    39    53B   55B  207   208   233   235   236   237   554M
              624M  711M  721   723M  725M  731   733M  738M  742   744M  746M  750   752M  754M  758   760M  762M  766
              768M  770M  775   777M  780M  786   788M
    15(F)       3U    8     9M   10    13M   22    22    23    26    26    29    29    30    33    33    36    36    39
               39   554M  555B  622M  622   623M  624B  653M  653   709M  709   710M  711B  721   722M  723B  725M  731
              732M  733   738M  742   743M  744B  746M  750   751M  752B  754M  758   759M  760B  762M  766   767M  768B
              770M  775   776M  777B  780M  786   787M  788
1                                  Diagnostic Cross Reference and Assembler Summary                             Page   11
-                                                                                            HLASM R6.0  2021/11/11 19.05
0     No Statements Flagged in this Assembly
 HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 6.0, PTF UK37157
0SYSTEM: z/OS 01.10.00              JOBNAME: XXXXXX      STEPNAME: C          PROCSTEP: (NOPROC)
0Data Sets Allocated for this Assembly
  Con DDname   Data Set Name                                Volume  Member
   P1 SYSIN    HATAM.ASM.SRC                                ZARES1  MACSAMP
   L1 SYSLIB   SYS1.MACLIB                                  ZARES1
   L2          SYS1.MODGEN                                  ZARES1
   L3          HATAM.MACLIB.SRC                             ZARES1
      SYSLIN   SYS21315.T190518.RA000.XXXXXX.OBJ.H01        ZASYS1
      SYSPRINT IBMUSER.XXXXXX.JOB00756.D0000102.?

   31992K allocated to Buffer Pool       Storage required     512K
      24 Primary Input Records Read         3805 Library Records Read                  0 Work File Reads
       0 ASMAOPT Records Read                383 Primary Print Records Written         0 Work File Writes
      80 Object Records Written                0 ADATA Records Written
0Assembly Start Time: 19.05.18 Stop Time: 19.05.18 Processor Time: 00.00.00.1433
 Return Code 000

1z/OS V1 R10 BINDER     19:05:17 THURSDAY NOVEMBER 11, 2021
 BATCH EMULATOR  JOB(XXXXXX  ) STEP(L       ) PGM= HEWL
 IEW2278I B352 INVOCATION PARAMETERS - MAP,LET,LIST

 IEW2650I 5102 MODULE ENTRY NOT PROVIDED.  ENTRY DEFAULTS TO SECTION IOSAMP.

1                         *** M O D U L E  M A P ***

 ---------------
 CLASS  B_TEXT            LENGTH =      FC4  ATTRIBUTES = CAT,   LOAD, RMODE= 24
                          OFFSET =        0 IN SEGMENT 001       ALIGN = DBLWORD
 ---------------

  SECTION    CLASS                                      ------- SOURCE --------
   OFFSET   OFFSET  NAME                TYPE    LENGTH  DDNAME   SEQ  MEMBER

                 0  IOSAMP             CSECT       251  SYSLIN    01  **NULL**

               258  $$IOSECT           CSECT       D6C  SYSLIN    01  **NULL**
        0      258     $$DMPOUT           LABEL
       10      268     $$PRTLIN           LABEL
       1C      274     $$PRTOUT           LABEL
       2C      284     $$CNVRTO           LABEL
       38      290     $$CNVRTI           LABEL
       44      29C     $$READCD           LABEL
1          ***  DATA SET SUMMARY  ***

 DDNAME    CONCAT   FILE IDENTIFICATION

 SYSLIN      01     SYS21315.T190518.RA000.XXXXXX.OBJ.H01

           *** E N D  O F  M O D U L E  M A P ***



1PROCESSING OPTIONS:

    ALIASES             NO
    ALIGN2              NO
    AMODE               UNSPECIFIED
    CALL                YES
    CASE                UPPER
    COMPAT              UNSPECIFIED
    COMPRESS            AUTO
    DCBS                NO
    DYNAM               NO
    EXTATTR             UNSPECIFIED
    EXITS:              NONE
    FILL                NONE
    GID                 UNSPECIFIED
    HOBSET              NO
    INFO                NO
    LET                 08
    LINECT              060
    LIST                SUMMARY
    LISTPRIV            NO
    MAP                 YES
    MAXBLK              032760
    MODMAP              NO
    MSGLEVEL            00
    OVLY                NO
    PRINT               YES
    RES                 NO
    REUSABILITY         UNSPECIFIED
    RMODE               UNSPECIFIED
    STORENX             NOREPLACE
    STRIPCL             NO
    STRIPSEC            NO
    TERM                NO
    TRAP                ON
    UID                 UNSPECIFIED
    UPCASE              NO
    WKSPACE             000000K,000000K
    XCAL                NO
    XREF                NO
    ***END OF OPTIONS***



1SAVE OPERATION SUMMARY:

    MEMBER NAME         GO
    LOAD LIBRARY        SYS21315.T190518.RA000.XXXXXX.GOSET.H01
    PROGRAM TYPE        LOAD MODULE
    VOLUME SERIAL       ZASYS1
    MAX BLOCK           32760
    DISPOSITION         ADDED NEW
    TIME OF SAVE        19.05.18  NOV 11, 2021


1SAVE MODULE ATTRIBUTES:

    AC                  000
    AMODE                24
    COMPRESSION         NONE
    DC                  NO
    EDITABLE            YES
    EXCEEDS 16MB        NO
    EXECUTABLE          YES
    MIGRATABLE          YES
    OL                  NO
    OVLY                NO
    PACK,PRIME          NO,NO
    PAGE ALIGN          NO
    REFR                NO
    RENT                NO
    REUS                NO
    RMODE                24
    SCTR                NO
    SSI
    SYM GENERATED       NO
    TEST                NO
    XPLINK              NO
    MODULE SIZE (HEX)   00000FC8






1 ENTRY POINT AND ALIAS SUMMARY:

  NAME:            ENTRY TYPE AMODE C_OFFSET CLASS NAME        STATUS

  IOSAMP            MAIN_EP      24 00000000 B_TEXT

                          ***** E N D  O F  R E P O R T *****




1z/OS V1 R10 BINDER     19:05:17 THURSDAY NOVEMBER 11, 2021
 BATCH EMULATOR  JOB(XXXXXX  ) STEP(L       ) PGM= HEWL
 IEW2008I 0F03 PROCESSING COMPLETED.  RETURN CODE =  0.



1----------------------
 MESSAGE SUMMARY REPORT
 ----------------------
  TERMINAL MESSAGES      (SEVERITY = 16)
  NONE

  SEVERE MESSAGES        (SEVERITY = 12)
  NONE

  ERROR MESSAGES         (SEVERITY = 08)
  NONE

  WARNING MESSAGES       (SEVERITY = 04)
  NONE

  INFORMATIONAL MESSAGES (SEVERITY = 00)
  2008  2278  2650


  **** END OF MESSAGE SUMMARY REPORT ****

Is the JCL wrong or I should seek the problem somewhere else?

by **enrico-sorichetti** » Fri Nov 12, 2021 3:38 am

at first glance just a few considerations ...

using register 15 as base register is pretty inconsiderate
registers 15,14,0,1 content is not guaranteed NOT to be clobbered by macros and subroutine/function calls
so setup a prorer base register

the registers content is not saved at the beginning of the program
learn how to setup a save area with the proper back and forward links

after the statement at loaction 130 PRINTOUT 1,19,32,*
the program flow drops into the work area
so you are trying to excute data as instructions

learn how to restore the registers and return to the callin environment

PS
for proper savearea setup, base register initialisation, program termination
look at the sample at page 972

by **willy jensen** » Fri Nov 12, 2021 2:20 pm

The JCL look ok as you can se that the program is assembled and executed.

Try this to prevent the abend:

change
USING 15.*
to
BAKR 14,0
LR 12,15
USING IOSAMP,R12
LA 13,SA
then add this just before the OUT declaration
PR
SA DS 18A

As mentioned above then start reading about standard linkage conventions and save areas.
Good to see someone new taking an interest in asembler

by **willy jensen** » Fri Nov 12, 2021 2:25 pm

Let me try again, I forgot to use indentation.
change

Select all

         USING 15,*   

to

Select all

         BAKR  14,0                          
         LR    12,15                         
         USING IOSAMP,R12                    
         LA    13,SA    

then add this just before the OUT declaration

Select all

         PR                                  
SA       DS    18A

by **hatam** » Fri Nov 12, 2021 7:04 pm

Thank for your kind help, with your help I found out that the JCL is alright and there is something wrong with some of the macros.

by **steve-myers** » Fri Nov 12, 2021 8:19 pm

As for the IEF686I message. It is basically a harmless message. If you look at the JCL, you will notice a construct like this in the step that runs the Linkage Editor / Binder -

Select all

//SYSLIN   DD  ...
//         DD  DDNAME=SYSIN

This construction is there so the JCL can provide an additional SYSLIN data set, like this -

Select all

//XXX     EXEC ASMACLG
//C.SYSIN  DD  ...
//L.SYSIN  DD  *
 Binder control statements or, perhaps, additional
 object code

All the IEF686I message is telling you is that the SYSIN DD statement for the Linkage Editor was not in the JCL.

As for the BAKR / PR discussion initiated by Mr. Jensen.

BAKR / PR is very slow. It saves and restores all 16 64-bit general registers, 16 32-bit access registers, and other things in a system provided area called the linkage stack. The register save area that register 13 points to when your program is entered is not used in this scheme. I suppose it is OK for a main program entry / exit, but no way it should be used for internal subroutines. The traditional entry / exit code is faster, as only the low order 32-bits of general registers are saved and restored.

Mr. Jensen also proposes initializing a new register save area. Since the system provided register save area is not actually used in the BAKR / PR scheme, it is probably not necessary to prepare your own save area, which does save a few CPU cycles and a little storage in your program.

by **willy jensen** » Fri Nov 12, 2021 8:52 pm

Mr Steve-meyers,
in general I agree with you, but I'd like to add two comments, which I should have done initially.

You make a good point that BAKR / PR are slow, but if you only use them at program initialization and termination time, this doesnt really matter. And they are far easier to use than the traditional method. Also if you need to restore one of the callers registers then the EREG instruction is very handy.

I find that setting up a local save area is generally a good practice, but yes in this particular case it is not needed.

by **steve-myers** » Fri Nov 12, 2021 10:20 pm

Mr. Jensen is correct when he says the old OS/360 method is somewhat error prone. I have to admit I've screwed it up more times than I care to admit. FWIW, here is the old way

Select all

OLDWAY   CSECT
         USING *,12
         SAVE  (14,12),,*
         LR    12,15
         LR    15,13
         LA    13,SAVEAREA
         ST    13,8(,15)
         ST    15,4(,13)
         ...
         L     13,4(,13)
         RETURN (14,12),RC=0
SAVEAREA DC    9D'0'

One advantage of the old way is it inserts a program ID into the code.

Now here is one way to use BAKR / PR -

Select all

NEWWAY   CSECT
         USING *,12
         B     SKIPID-*(,15)
         DC    AL1(L'NEWID)
NEWID    DC    C'NEWWAY'
SKIPID   BAKR  14,0
         LR    12,15
         ...
         PR    ,

This, too, inserts a program ID into the object code, essentially the same way the SAVE macro inserts the program ID, though it does add some complexity to the code.

by **sergeyken** » Fri Nov 12, 2021 11:23 pm

Somewhat crazy-looking

Select all

         B     SKIPID-*(,15)
 

can be changed to

Select all

         J     SKIPID      - no base register needed
 

by **steve-myers** » Sat Nov 13, 2021 12:17 am

Sergeyken is quite correct, but I think it's better than

Select all

OLDWAY   CSECT
         USING *,15
         B     SKIPID
         DROP  15
         USING OLDWAY,12
         DC    AL1(L'ID)
ID       DC    C'OLDWAY'
SKIPID   LR    12,15
         ...

Many beginners are uncomfortable with the BRC extended mnemonics (e.g, J symbol). However, it avoids a one instruction base register!

IBM Mainframe Forum

IEF686I Error

IEF686I Error

Re: IEF686I Error

Re: IEF686I Error

Re: IEF686I Error

Re: IEF686I Error

Re: IEF686I Error

Re: IEF686I Error

Re: IEF686I Error

Re: IEF686I Error

Re: IEF686I Error