Page 2 of 2

Re: IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR ST

PostPosted: Tue Sep 25, 2012 2:45 pm
by RISCCISCInstSet
Current state...

COPY     SETUP
         TITLE 'PROGRAM 4 80/80 LISTING'
         PRINT NOGEN
         WTO   'PROG4 COPY INFILE (ASCII) TO OUTFILE (ASCII)'
         OPEN  (INFILE,(INPUT))
         OPEN  (OUTFILE,(OUTPUT))
*         WTO   'Files opened successfully'
*         ZAP   NUM,=P'2'
*         ZAP   NUM2,=P'1'
*         MVC   CHAR1,=C'9'
*
*LOOP     EQU   *
*         GET   INFILE,IRECORD
**        MVC   ORECORD,=CL133' '

******** MVC   ORECORD(80),IRECORD
******** MVC   ORECORD(10),=C'        '

*         MVC   ORECORD+10(62),IRECORD
*         PACK NUM,CHAR1
*
*         AP   NUM,NUM2

*         UNPK  CHAR1,NUM
*         OI    CHAR1,X'F0'
*         MVC   ORECORD(2),CHAR1

*         PUT   OUTFILE,ORECORD
*         B     LOOP
*
EOF      EQU   *
         CLOSE (INFILE,,OUTFILE)
*         CLOSE (INFILE)
         WTO   'PROG4 ENDED OK'
         ENDIT
INFILE   DCB   DDNAME=INPUT,                                           X
               DSORG=PS,                                               X
               EODAD=EOF,                                              X
               LRECL=80,                                               X
               RECFM=FB,                                               X
               MACRF=(GM)
*
OUTFILE  DCB   DDNAME=OUTPUT,                                          X
               LRECL=80,                                               X
               DSORG=PS,                                               X
               RECFM=FB,                                               X
               MACRF=(PM),                                             X
               BLKSIZE=100
*
CHAR1    DS    CL2
NUM      DS    PL2
NUM2     DS    PL2
IRECORD  DC    CL80' '
ORECORD  DC    CL72' '
         END   COPY

//C432110A JOB (ASSY),CLASS=A,MSGCLASS=A,
//   NOTIFY=&SYSUID,MSGLEVEL=(1,1)
//**************//
//CLG          EXEC PROC=ASMACLG
//C.SYSIN      DD DSN=C432110.ASM(LAB03),DISP=SHR
//C.SYSLIB     DD DSN=SYS1.MACLIB,DISP=SHR
//             DD DSN=C432110.MACLIB,DISP=SHR
//             DD DSN=SYS1.AMODGEN,DISP=SHR
//G.INPUT      DD DSN=C432110.ASM(LAB03),DISP=SHR
//G.OUTPUT     DD DSN=C432110.ASM(COPY),DISP=SHR

                   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
 
04.15.27 JOB02924 ---- TUESDAY,   25 SEP 2012 ----
04.15.27 JOB02924  IRR010I  USERID C432110  IS ASSIGNED TO THIS JOB.
04.15.28 JOB02924  IEF677I WARNING MESSAGE(S) FOR JOB C432110A ISSUED
04.15.28 JOB02924  ICH70001I C432110  LAST ACCESS AT 04:13:30 ON TUESDAY, SEPTEMBER 25, 2012
04.15.28 JOB02924  $HASP373 C432110A STARTED - INIT 1    - CLASS A - SYS S0W1
04.15.29 JOB02924  -                                      -----TIMINGS (MINS.)------                          -----PAGING COUNTS----
04.15.29 JOB02924  -STEPNAME PROCSTEP    RC   EXCP   CONN       TCB       SRB  CLOCK          SERV  WORKLOAD  PAGE  SWAP   VIO SWAPS
04.15.29 JOB02924  -CLG      C           00    209     75       .00       .00     .0            54  BATCH        0     0     0     0
04.15.29 JOB02924  -CLG      L           00     20      2       .00       .00     .0             2  BATCH        0     0     0     0
04.15.29 JOB02924  +PROG4 COPY INFILE (ASCII) TO OUTFILE (ASCII)
04.15.29 JOB02924  IEC141I 013-20,IGG0191A,C432110A,G,OUTPUT,0D33,VPWRKB,  949
   949             C432110.ASM(COPY)
04.15.29 JOB02924  IEA995I SYMPTOM DUMP OUTPUT  950
   950             SYSTEM COMPLETION CODE=013  REASON CODE=00000020
   950              TIME=04.15.29  SEQ=00139  CPU=0000  ASID=001B
   950              PSW AT TIME OF ERROR  075C1000   80E651C6  ILC 2  INTC 0D
   950                NO ACTIVE MODULE FOUND
   950                NAME=UNKNOWN
   950                DATA AT PSW  00E651C0 - 4100302C  0A0D010D  A7E50126
   950                AR/GR 0: 007FF3A0/00E65484   1: 00000000/A4013000
   950                      2: 00000000/00007F00   3: 00000000/00E65458
   950                      4: 00000000/007C1180   5: 00000000/007C1514
   950                      6: 00000000/007C14BC   7: 00000000/007C1514
   950                      8: 00000000/007C14DC   9: 00000000/007CB010
   950                      A: 00000000/007C7400   B: 00000000/00000000
   950                      C: 00000000/00000014   D: 00000000/00000001
   950                      E: 00000000/80E64A24   F: 00000000/00000020
   950              END OF SYMPTOM DUMP
04.15.29 JOB02924  IEF450I C432110A G CLG - ABEND=S013 U0000 REASON=00000020
04.15.29 JOB02924  -CLG      G        *S013     10      1       .00       .00     .0             2  BATCH        0     0     0     0
04.15.29 JOB02924  -C432110A ENDED.  NAME-                     TOTAL TCB CPU TIME=      .00 TOTAL ELAPSED TIME=    .0
04.15.29 JOB02924  $HASP395 C432110A ENDED
------ JES2 JOB STATISTICS ------
  25 SEP 2012 JOB EXECUTION DATE
           10 CARDS READ
          570 SYSOUT PRINT RECORDS
            0 SYSOUT PUNCH RECORDS
           32 SYSOUT SPOOL KBYTES
         0.01 MINUTES EXECUTION TIME
        1 //C432110A JOB (ASSY),CLASS=A,MSGCLASS=A,                               JOB02924
          //   NOTIFY=&SYSUID,MSGLEVEL=(1,1)
          //**************//
          IEFC653I SUBSTITUTION JCL - (ASSY),CLASS=A,MSGCLASS=A,NOTIFY=C432110,MSGLEVEL=(1,1)
        2 //CLG          EXEC PROC=ASMACLG
        3 XXASMACLG  PROC                                                         00001000
          XX*                                                                     00002000
          XX***   ASMACLG                                                         00003000
          XX*                                                                     00004000
          XX* THIS PROCEDURE RUNS THE HIGH LEVEL ASSEMBLER, LINK-EDITS THE        00005000
          XX* NEWLY ASSEMBLED PROGRAM AND RUNS THE PROGRAM AFTER                  00006000
          XX* THE LINK-EDIT IS ACCOMPLISHED.                                      00007000
          XX*                                                                     00008000
        4 XXC        EXEC PGM=ASMA90                                              00009000
        5 //C.SYSLIB     DD DSN=SYS1.MACLIB,DISP=SHR
          X/SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR                                 00010000
        6 //             DD DSN=C432110.MACLIB,DISP=SHR
        7 //             DD DSN=SYS1.AMODGEN,DISP=SHR
        8 XXSYSUT1   DD  DSN=&&SYSUT1,SPACE=(4096,(120,120),,,ROUND),UNIT=VIO,    00011000
          XX             DCB=BUFNO=1                                              00012000
        9 XXSYSPRINT DD  SYSOUT=*                                                 00013000
       10 XXSYSLIN   DD  DSN=&&OBJ,SPACE=(3040,(40,40),,,ROUND),UNIT=VIO,         00014000
          XX             DISP=(MOD,PASS),                                         00015000
          XX             DCB=(BLKSIZE=3040,LRECL=80,RECFM=FBS,BUFNO=1)            00016000
       11 //C.SYSIN      DD DSN=C432110.ASM(LAB03),DISP=SHR
       12 XXL        EXEC PGM=HEWL,PARM='MAP,LET,LIST',COND=(8,LT,C)              00017000
       13 XXSYSLIN   DD  DSN=&&OBJ,DISP=(OLD,DELETE)                              00018000
       14 XX         DD  DDNAME=SYSIN                                             00019000
       15 XXSYSLMOD  DD  DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(1,1,1)),             00020000
          XX             DSN=&&GOSET(GO)                                          00021000
       16 XXSYSUT1   DD  DSN=&&SYSUT1,SPACE=(1024,(120,120),,,ROUND),UNIT=VIO,    00022000
          XX             DCB=BUFNO=1                                              00023000
       17 XXSYSPRINT DD  SYSOUT=*                                                 00024000
       18 XXG        EXEC PGM=*.L.SYSLMOD,COND=((8,LT,C),(8,LT,L))                00025000
       19 //G.INPUT      DD DSN=C432110.ASM(LAB03),DISP=SHR
       20 //G.OUTPUT     DD DSN=C432110.ASM(COPY),DISP=SHR
 STMT NO. MESSAGE
        2 IEFC001I PROCEDURE ASMACLG WAS EXPANDED USING SYSTEM LIBRARY SYS1.PROCLIB
       18 IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR STEP WAS NOT RESOLVED
ICH70001I C432110  LAST ACCESS AT 04:13:30 ON TUESDAY, SEPTEMBER 25, 2012
IEF236I ALLOC. FOR C432110A C CLG
IEF237I 1001 ALLOCATED TO SYSLIB
IEF237I 0D33 ALLOCATED TO
IEF237I 1007 ALLOCATED TO
IGD100I VIO ALLOCATED TO DDNAME SYSUT1   DATACLAS (        )
IEF237I JES2 ALLOCATED TO SYSPRINT
IGD100I VIO ALLOCATED TO DDNAME SYSLIN   DATACLAS (        )
IEF237I 0D33 ALLOCATED TO SYSIN
IEF142I C432110A C CLG - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS1.MACLIB                                  KEPT
IEF285I   VOL SER NOS= VTMVSC.
IEF285I   C432110.MACLIB                               KEPT
IEF285I   VOL SER NOS= VPWRKB.
IEF285I   SYS1.AMODGEN                                 KEPT
IEF285I   VOL SER NOS= VDMVSB.
IEF285I   SYS12269.T041528.RA000.C432110A.SYSUT1.H01   DELETED
IEF285I   C432110.C432110A.JOB02924.D0000101.?         SYSOUT
IEF285I   SYS12269.T041528.RA000.C432110A.OBJ.H01      PASSED
IEF285I   C432110.ASM                                  KEPT
IEF285I   VOL SER NOS= VPWRKB.
IEF373I STEP/C       /START 2012269.0415
IEF032I STEP/C       /STOP  2012269.0415
        CPU:     0 HR  00 MIN  00.04 SEC    SRB:     0 HR  00 MIN  00.00 SEC
        VIRT:   228K  SYS:   252K  EXT:    32768K  SYS:    11964K
IEF236I ALLOC. FOR C432110A L CLG
IEF237I VIO  ALLOCATED TO SYSLIN
IEF237I DMY  ALLOCATED TO
IGD100I VIO ALLOCATED TO DDNAME SYSLMOD  DATACLAS (        )
IGD100I VIO ALLOCATED TO DDNAME SYSUT1   DATACLAS (        )
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF142I C432110A L CLG - STEP WAS EXECUTED - COND CODE 0000
IEF285I   SYS12269.T041528.RA000.C432110A.OBJ.H01      DELETED
IEF285I   SYS12269.T041528.RA000.C432110A.GOSET.H01    PASSED
IEF285I   SYS12269.T041528.RA000.C432110A.SYSUT1.H01   DELETED
IEF285I   C432110.C432110A.JOB02924.D0000102.?         SYSOUT
IEF373I STEP/L       /START 2012269.0415
IEF032I STEP/L       /STOP  2012269.0415
        CPU:     0 HR  00 MIN  00.01 SEC    SRB:     0 HR  00 MIN  00.00 SEC
        VIRT:   104K  SYS:   260K  EXT:     1768K  SYS:    11108K
IEF236I ALLOC. FOR C432110A G CLG
IEF237I VIO  ALLOCATED TO PGM=*.DD
IEF237I 0D33 ALLOCATED TO INPUT
IEF237I 0D33 ALLOCATED TO OUTPUT
PROG4 COPY INFILE (ASCII) TO OUTFILE (ASCII)
IEC141I 013-20,IGG0191A,C432110A,G,OUTPUT,0D33,VPWRKB,
C432110.ASM(COPY)
IEA995I SYMPTOM DUMP OUTPUT
SYSTEM COMPLETION CODE=013  REASON CODE=00000020
 TIME=04.15.29  SEQ=00139  CPU=0000  ASID=001B
 PSW AT TIME OF ERROR  075C1000   80E651C6  ILC 2  INTC 0D
   NO ACTIVE MODULE FOUND
   NAME=UNKNOWN
   DATA AT PSW  00E651C0 - 4100302C  0A0D010D  A7E50126
   AR/GR 0: 007FF3A0/00E65484   1: 00000000/A4013000
         2: 00000000/00007F00   3: 00000000/00E65458
         4: 00000000/007C1180   5: 00000000/007C1514
         6: 00000000/007C14BC   7: 00000000/007C1514
         8: 00000000/007C14DC   9: 00000000/007CB010
         A: 00000000/007C7400   B: 00000000/00000000
         C: 00000000/00000014   D: 00000000/00000001
         E: 00000000/80E64A24   F: 00000000/00000020
 END OF SYMPTOM DUMP
IEF472I C432110A G CLG - COMPLETION CODE - SYSTEM=013 USER=0000 REASON=00000020
IEF285I   SYS12269.T041528.RA000.C432110A.GOSET.H01    KEPT
IEF285I   C432110.ASM                                  KEPT
IEF285I   VOL SER NOS= VPWRKB.
IEF285I   C432110.ASM                                  KEPT
IEF285I   VOL SER NOS= VPWRKB.
IEF373I STEP/G       /START 2012269.0415
IEF032I STEP/G       /STOP  2012269.0415
        CPU:     0 HR  00 MIN  00.01 SEC    SRB:     0 HR  00 MIN  00.00 SEC
        VIRT:    40K  SYS:   264K  EXT:        8K  SYS:    11920K
IEF285I   SYS12269.T041528.RA000.C432110A.GOSET.H01    DELETED
IEF375I  JOB/C432110A/START 2012269.0415
IEF033I  JOB/C432110A/STOP  2012269.0415
        CPU:     0 HR  00 MIN  00.06 SEC    SRB:     0 HR  00 MIN  00.00 SEC
 
                                         High Level Assembler Option Summary                   (PTF UK81558)   Page    1
                                                                                            HLASM R6.0  2012/09/25 04.15
  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 R6.0  2012/09/25 04.15
COPY      SD 00000001 00000000 0000022E             00
 
                                                                                                               Page    3
  Active Usings: None
  Loc  Object Code    Addr1 Addr2  Stmt   Source Statement                                  HLASM R6.0  2012/09/25 04.15
                                      1 COPY     SETUP
000000                00000 0022E     3+COPY     CSECT                                                          01-SETUP
 
                                      5+* SAVE REGISTERS
                                      6+         SAVE  (14,12),,COPY-09/25/12-04.15                             01-SETUP
000000 47F0 F018            00018     9+         B     24(0,15)                          BRANCH AROUND ID       02-SAVE
000004 13                            10+         DC    AL1(19)                           LENGTH OF IDENTIFIER   02-SAVE
000005 C3D6D7E860F0F961              11+         DC    CL8'COPY-09/'                     IDENTIFIER             02-SAVE
00000D F2F561F1F260F0F4              12+         DC    CL8'25/12-04'                     IDENTIFIER             02-SAVE
000015 4BF1F5                        13+         DC    CL3'.15'                          IDENTIFIER             02-SAVE
000018 90EC D00C            0000C    14+         STM   14,12,12(13)                      SAVE REGISTERS         02-SAVE
 
                                     16+* ESTABLISH ADDRESSABILITY FOR PROGRAM
00001C 18CF                          17+         LR    12,15              ESTABLISH FIRST BASE REGISTER         01-SETUP
                 R:C  00000          18+         USING COPY,12                                                  01-SETUP
 
                                     20+* ESTABLISH NEW SAVE AREA AND POINT 13 TO IT
                                     21+         GETMAIN R,LV=72                                                01-SETUP
00001E 4100 0048            00048    24+         LA    0,72(0,0)               LOAD LENGTH                      02-GETMA
000022 4510 C026            00026    25+         BAL   1,*+4                   INDICATE GETMAIN        @Z30EN9G 02-GETMA
000026 0A0A                          26+         SVC   10                      ISSUE GETMAIN SVC                02-GETMA
000028 5010 D008            00008    27+         ST    1,8(,13)           CHAIN NEW AND OLD                     01-SETUP
00002C 50D0 1004            00004    28+         ST    13,4(,1)                SAVE AREAS TOGETHER              01-SETUP
000030 9801 D014            00014    29+         LM    0,1,20(13)         RESTORE REGISTERS 0 AND 1             01-SETUP
000034 58D0 D008            00008    30+         L     13,8(,13)          LOAD ADDRESS OF NEW SAVE AREA         01-SETUP
 
                      00000          32+R0       EQU   0                                                        01-SETUP
                      00001          33+R1       EQU   1                                                        01-SETUP
                      00002          34+R2       EQU   2                                                        01-SETUP
                      00003          35+R3       EQU   3                                                        01-SETUP
                      00004          36+R4       EQU   4                                                        01-SETUP
                      00005          37+R5       EQU   5                                                        01-SETUP
                      00006          38+R6       EQU   6                                                        01-SETUP
                      00007          39+R7       EQU   7                                                        01-SETUP
                      00008          40+R8       EQU   8                                                        01-SETUP
                      00009          41+R9       EQU   9                                                        01-SETUP
                      0000A          42+R10      EQU   10                                                       01-SETUP
                      0000B          43+R11      EQU   11                                                       01-SETUP
                      0000C          44+R12      EQU   12                                                       01-SETUP
                      0000D          45+R13      EQU   13                                                       01-SETUP
                      0000E          46+R14      EQU   14                                                       01-SETUP
                      0000F          47+R15      EQU   15                                                       01-SETUP
                      00001          48+BO       EQU   1                                                        01-SETUP
                      00002          49+BP       EQU   2                                                        01-SETUP
                      00002          50+BH       EQU   2                                                        01-SETUP
                      00004          51+BL       EQU   4                                                        01-SETUP
                      00004          52+BM       EQU   4                                                        01-SETUP
                                                                                                               Page    4
  Active Usings: COPY,R12
  Loc  Object Code    Addr1 Addr2  Stmt   Source Statement                                  HLASM R6.0  2012/09/25 04.15
                      00007          53+BNE      EQU   7                                                        01-SETUP
                      00007          54+BNZ      EQU   7                                                        01-SETUP
                      00008          55+BE       EQU   8                                                        01-SETUP
                      00008          56+BZ       EQU   8                                                        01-SETUP
                      0000B          57+BNL      EQU   11                                                       01-SETUP
                      0000B          58+BNM      EQU   11                                                       01-SETUP
                      0000D          59+BNH      EQU   13                                                       01-SETUP
                      0000D          60+BNP      EQU   13                                                       01-SETUP
                      0000E          61+BNO      EQU   14                                                       01-SETUP
 
         PROGRAM 4 80/80 LISTING                                                                               Page    5
  Active Usings: COPY,R12
  Loc  Object Code    Addr1 Addr2  Stmt   Source Statement                                  HLASM R6.0  2012/09/25 04.15
                                     64          PRINT NOGEN
000038 A715 001A            0006C    65          WTO   'PROG4 COPY INFILE (ASCII) TO OUTFILE (ASCII)'
00006E 0700                          74          OPEN  (INFILE,(INPUT))
00007A 0700                          81          OPEN  (OUTFILE,(OUTPUT))
                                     88 *         WTO   'Files opened successfully'
                                     89 *         ZAP   NUM,=P'2'
                                     90 *         ZAP   NUM2,=P'1'
                                     91 *         MVC   CHAR1,=C'9'
                                     92 *
                                     93 *LOOP     EQU   *
                                     94 *         GET   INFILE,IRECORD
                                     95 **        MVC   ORECORD,=CL133' '
                                     97 ******** MVC   ORECORD(80),IRECORD
                                     98 ******** MVC   ORECORD(10),=C'        '
                                    100 *         MVC   ORECORD+10(62),IRECORD
                                    101 *         PACK NUM,CHAR1
                                    102 *
                                    103 *         AP   NUM,NUM2
                                    105 *         UNPK  CHAR1,NUM
                                    106 *         OI    CHAR1,X'F0'
                                    107 *         MVC   ORECORD(2),CHAR1
                                    109 *         PUT   OUTFILE,ORECORD
                                    110 *         B     LOOP
                                    111 *
                      00086         112 EOF      EQU   *
000086 0700                         113          CLOSE (INFILE,,OUTFILE)
                                    122 *         CLOSE (INFILE)
000096 0700                         123          WTO   'PROG4 ENDED OK'
0000B0 58D0 D004            00004   132          ENDIT
                                    138+         FREEMAIN R,LV=72,A=(1)                                         01-ENDIT
                                    146+         RETURN (14,12),T,RC=0                                          01-ENDIT
                                    153 INFILE   DCB   DDNAME=INPUT,                                           X
                                                       DSORG=PS,                                               X
                                                       EODAD=EOF,                                              X
                                                       LRECL=80,                                               X
                                                       RECFM=FB,                                               X
0000D0 0000000000000000                                MACRF=(GM)
                                    195 *
                                    196 OUTFILE  DCB   DDNAME=OUTPUT,                                          X
                                                       LRECL=80,                                               X
                                                       DSORG=PS,                                               X
                                                       RECFM=FB,                                               X
                                                       MACRF=(PM),                                             X
000130 0000000000000000                                BLKSIZE=100
                                    238 *
000190                              239 CHAR1    DS    CL2
000192                              240 NUM      DS    PL2
000194                              241 NUM2     DS    PL2
000196 4040404040404040             242 IRECORD  DC    CL80' '
0001E6 4040404040404040             243 ORECORD  DC    CL72' '
000000                              244          END   COPY
 
                                                 Relocation Dictionary                                         Page    6
   Pos.Id   Rel.Id   Address  Type  Action                                                  HLASM R6.0  2012/09/25 04.15
  00000001 00000001 00000075   A 3     +
  00000001 00000001 00000081   A 3     +
  00000001 00000001 0000008D   A 3     +
  00000001 00000001 00000091   A 3     +
  00000001 00000001 000000F1   A 3     +
 
                               Ordinary Symbol and Literal Cross Reference                                     Page    7
Symbol   Length   Value     Id    R Type Asm  Program   Defn References                     HLASM R6.0  2012/09/25 04.15
COPY          1 00000000 00000001     J                    3   18U  244
EOF           1 00000086 00000001     U                  112  170
IHB0007A      2 0000006C 00000001     H  H                72   68B
IHB0015A      2 000000AE 00000001     H  H               130  126B
INFILE        4 000000D0 00000001     F  F               158   79   118
OUTFILE       4 00000130 00000001     F  F               201   86   120
 
                                  Unreferenced Symbols Defined in CSECTs                                       Page    8
  Defn  Symbol                                                                              HLASM R6.0  2012/09/25 04.15
    55  BE
    50  BH
    51  BL
    52  BM
    53  BNE
    59  BNH
    57  BNL
    58  BNM
    61  BNO
    60  BNP
    54  BNZ
    48  BO
    49  BP
    56  BZ
   239  CHAR1
   242  IRECORD
   240  NUM
   241  NUM2
   243  ORECORD
    32  R0
    33  R1
    42  R10
    43  R11
    44  R12
    45  R13
    46  R14
    47  R15
    34  R2
    35  R3
    36  R4
    37  R5
    38  R6
    39  R7
    40  R8
    41  R9
 
                                          Macro and Copy Code Source Summary                                   Page    9
 Con Source                                        Volume    Members                        HLASM R6.0  2012/09/25 04.15
  L1 SYS1.MACLIB                                   VTMVSC    CLOSE    DCB      FREEMAIN GETMAIN  IHB01    OPEN
                                                             RETURN   SAVE     SYSSTATE WTO
  L2 C432110.MACLIB                                VPWRKB    ENDIT    SETUP
 
                                                      Using Map                                                Page   10
                                                                                            HLASM R6.0  2012/09/25 04.15
  Stmt  -----Location----- Action ----------------Using----------------- Reg Max     Last Label and Using Text
          Count      Id           Type          Value    Range     Id        Disp    Stmt
    18  0000001E  00000001 USING  ORDINARY    00000000 00001000 00000001  12 00094    116 COPY,12
 
                                   General Purpose Register Cross Reference                                    Page   11
 Register  References (M=modified, B=branch, U=USING, D=DROP, N=index)                      HLASM R6.0  2012/09/25 04.15
    0(0)      14    24M   29M  141M  149M
    1(1)      14    25M   27    28    29M   68M   77M   84M  116M  126M  137M  142M  142   149M
    2(2)      14   149M
    3(3)      14   149M
    4(4)      14   149M
    5(5)      14   149M
    6(6)      14   149M
    7(7)      14   149M
    8(8)      14   149M
    9(9)      14   149M
   10(A)      14   149M
   11(B)      14   149M
   12(C)      14    17M   18U  149M
   13(D)      14    27    28    29    30M   30   134M  134   137   149   150
   14(E)      14   149M  152B
   15(F)       9    14    17   149M  151M
 
                                  Diagnostic Cross Reference and Assembler Summary                             Page   12
                                                                                            HLASM R6.0  2012/09/25 04.15
     No Statements Flagged in this Assembly
HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 6.0, PTF UK81558
SYSTEM: z/OS 01.13.00              JOBNAME: C432110A    STEPNAME: CLG        PROCSTEP: C
Data Sets Allocated for this Assembly
 Con DDname   Data Set Name                                Volume  Member
  P1 SYSIN    C432110.ASM                                  VPWRKB  LAB03
  L1 SYSLIB   SYS1.MACLIB                                  VTMVSC
  L2          C432110.MACLIB                               VPWRKB
  L3          SYS1.AMODGEN                                 VDMVSB
     SYSLIN   SYS12269.T041528.RA000.C432110A.OBJ.H01
     SYSPRINT C432110.C432110A.JOB02924.D0000101.?
 
  32072K allocated to Buffer Pool       Storage required     972K
     55 Primary Input Records Read        11237 Library Records Read                  0 Work File Reads
      0 ASMAOPT Records Read                282 Primary Print Records Written         0 Work File Writes
     14 Object Records Written                0 ADATA Records Written
Assembly Start Time: 04.15.29 Stop Time: 04.15.29 Processor Time: 00.00.00.0339
Return Code 000
z/OS V1 R13 BINDER     04:15:28 TUESDAY SEPTEMBER 25, 2012
BATCH EMULATOR  JOB(C432110A) STEP(CLG     ) PGM= HEWL      PROCEDURE(L       )
IEW2278I B352 INVOCATION PARAMETERS - MAP,LET,LIST
 
                         *** M O D U L E  M A P ***
 
---------------
CLASS  B_TEXT            LENGTH =      22E  ATTRIBUTES = CAT,   LOAD, RMODE= 24
                         OFFSET =        0 IN SEGMENT 001       ALIGN = DBLWORD
---------------
 
 SECTION    CLASS                                      ------- SOURCE --------
  OFFSET   OFFSET  NAME                TYPE    LENGTH  DDNAME   SEQ  MEMBER
 
                0  COPY               CSECT       22E  SYSLIN    01  **NULL**
          ***  DATA SET SUMMARY  ***
 
DDNAME    CONCAT   FILE IDENTIFICATION
 
SYSLIN      01     SYS12269.T041528.RA000.C432110A.OBJ.H01
 
          *** E N D  O F  M O D U L E  M A P ***
 
 
 
                                *** O P E R A T I O N   S U M M A R Y   R E P O R T ***
 
PROCESSING 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
   SIGN                NO
   STORENX             NOREPLACE
   STRIPCL             NO
   STRIPSEC            NO
   TERM                NO
   TRAP                ON
   UID                 UNSPECIFIED
   UPCASE              NO
   WKSPACE             000000K,000000K
   XCAL                NO
   XREF                NO
   ***END OF OPTIONS***
 
 
 
 
SAVE OPERATION SUMMARY:
 
   MEMBER NAME         GO
   LOAD LIBRARY        SYS12269.T041528.RA000.C432110A.GOSET.H01
   PROGRAM TYPE        LOAD MODULE
   VOLUME SERIAL
   MAX BLOCK           32760
   DISPOSITION         ADDED NEW
   TIME OF SAVE        04.15.29  SEP 25, 2012
 
 
SAVE 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
   SIGN                NO
   SSI
   SYM GENERATED       NO
   TEST                NO
   XPLINK              NO
   MODULE SIZE (HEX)   00000230
 
 
 ENTRY POINT AND ALIAS SUMMARY:
 
 NAME:            ENTRY TYPE AMODE C_OFFSET CLASS NAME        STATUS
 
 COPY              MAIN_EP      24 00000000 B_TEXT
 
                         *** E N D   O F   O P E R A T I O N   S U M M A R Y   R E P O R T ***
 
 
 
 
z/OS V1 R13 BINDER     04:15:28 TUESDAY SEPTEMBER 25, 2012
BATCH EMULATOR  JOB(C432110A) STEP(CLG     ) PGM= HEWL      PROCEDURE(L       )
IEW2008I 0F03 PROCESSING COMPLETED.  RETURN CODE =  0.
 
 
 
----------------------
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
 
 
 **** END OF MESSAGE SUMMARY REPORT ****
 

Re: IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR ST

PostPosted: Tue Sep 25, 2012 3:39 pm
by NicC
If you are going to specify the lrecl and blocksize in the program make sure that they match those attributes of your output dataset. Your LRECL is probably 80 but your blocksize has to be a multiple of 80. Use ISPF option 3.2 on that dataset to get the attributes.

Re: IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR ST

PostPosted: Tue Sep 25, 2012 4:01 pm
by RISCCISCInstSet
So that was what was wrong. :D It didn't abend this time. Thanks for your help. I may need to return to this thread if it turns out
a) this sub-problem isn't really solved, and b) I've tried to work on it myself and probably need a little help. I'll try to keep a note of the information gave me. :)

Re: IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR ST

PostPosted: Tue Sep 25, 2012 4:11 pm
by NicC
I was slightly amiss with my blocksize statement - the blocksize has to be a multiple of the LRECL whether that is 80 or something else. For a variable length record file the blocksize must be at least 4 bytes greater than the LRECL. But it is all in the JCL manual.

Re: IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR ST

PostPosted: Tue Sep 25, 2012 4:40 pm
by Robert Sample
These days, for a variable length data set, the block size must be a minimum of LRECL+4. However, the block size does not have to be (a multiple of the LRECL) + 4.

Re: IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR ST

PostPosted: Tue Sep 25, 2012 4:41 pm
by BillyBoyo
RISCCISCInstSet,

When you rerturn, try to read all that people post. A couple of times you've had to be told things more than once. Do it from the first, and you'll get more sleep :-)

Last time I looked you still had some of the problems in the program that I pointed out earlier...

Re: IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR ST

PostPosted: Tue Sep 25, 2012 8:19 pm
by RISCCISCInstSet
I'll be sure and review that; thanks! :D

Re: IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR ST

PostPosted: Wed Sep 26, 2012 1:45 am
by steve-myers
Well, we've gotten well off the subject.

Billyboyo is correct about specifying LRECL=??,BLKSIZE=130. It won't work. A better idea is to make the program adjust to changing the LRECL. It would have to be different, perhaps like this-
* DATASET COPY WITH AN LRECL CHANGE
COPYX    CSECT
         DCBD  DSORG=QS,DEVD=DA
COPYX    CSECT
         USING *,12
         SAVE  (14,12),,*
         LR    12,15
         LA    15,SAVEAREA
         ST    13,4(,15)
         ST    15,8(,13)
         LR    13,15
         LA    1,OPARM1
         BAS   14,OPENLIST
         LTR   15,15
         BNZ   EXIT
         LA    1,OPARM2
         BAS   14,OPENLIST
         LTR   15,15
         BNZ   EXIT
COPYLOOP GET   INPUTDCB
         LR    2,1
         LH    3,DCBLRECL-IHADCB+INPUTDCB
         PUT   OUTPUTDCB
         LR    0,1
         LH    1,DCBLRECL-IHADCB+OUTPUTDCB
         ICM   3,B'1000',ABLANK
         MVCL  0,2
         B     COPYLOOP
EXIT     DC    0H'0'
INPUTEOF CLOSE MF=(E,CPARM)
         L     13,4(,13)
         RETURN (14,12),T,RC=0
OPENLIST BALR  15,0
         SAVE  (14,2),,OPENLIST
         LR    2,1
         OPEN  MF=(E,(1))
         SR    15,15
OL0100   L     1,0(,2)
         TM    DCBOFLGS-IHADCB(1),DCBOFOPN
         BO    OL0200
         LA    15,4
OL0200   TM    0(2),X'80'
         LA    2,4(,2)
         BZ    OL0100
         RETURN (14,2),T,RC=(15)
         DROP  ,
         CNOP  0,8
         USING *,15
         USING IHADCB,1
OPENEXIT SR    0,0
         ICM   0,B'0011',DCBLRECL
         JNZ   OX0100
         LH    0,DCBLRECL-IHADCB+INPUTDCB
OX0100   STH   0,DCBLRECL
         BR    14
         DROP  ,
SAVEAREA DC    9D'0'
OPARM1   OPEN  (INPUTDCB,INPUT),MF=L
OPARM2   OPEN  (OUTPUTDCB,OUTPUT),MF=L
CPARM    CLOSE (INPUTDCB,,OUTPUTDCB),MF=L
INPUTDCB DCB   DSORG=PS,MACRF=GL,RECFM=FB,DDNAME=INPUT,EODAD=INPUTEOF
OUTPUTDCB DCB  DSORG=PS,MACRF=PL,RECFM=FB,DDNAME=OUTPUT,EXLST=XLIST
XLIST    DC    0A(0),AL1(X'80'+5),AL3(OPENEXIT)
ABLANK   DC    C' '
         END   COPYX
If the output LRECL is greater than the input LRECL, the program fills the record with blanks. If the output LRECL is not specified, the program copies the input LRECL to the output DCB.

Both DCBs specify "locate mode" processing. For input, the GET macro returns the address of the data in the input buffer. For output, the PUT macro returns the address of an output area your program must fill in. The copy loop becomes
COPYLOOP GET   INPUTDCB
         LR    2,1
         LH    3,DCBLRECL-IHADCB+INPUTDCB
         PUT   OUTPUTDCB
         LR    0,1
         LH    1,DCBLRECL-IHADCB+OUTPUTDCB
         ICM   3,B'1000',ABLANK
         MVCL  0,2
         B     COPYLOOP
The GET macro returns the record address in register 1. The program loads the record length from the DCB. The PUT macro returns the address of space for the record, and, as with input, the program loads the record length from the DCB. After preparing the registers, the program uses the MVCL instruction to copy the input data to the output buffer, and extend the input data with blanks if necessary.

The output DCB LRECL is prepared in a DCB open exit. OPEN calls the exit after it has prepared the DCB from the dataset LRECL and JCL specified DCB parameters; the open exit verifies and alters the parameters as necessary before it returns to OPEN.
         USING *,15
         USING IHADCB,1
OPENEXIT SR    0,0
         ICM   0,B'0011',DCBLRECL
         BNZ   OX0100
         LH    0,DCBLRECL-IHADCB+INPUTDCB
OX0100   STH   0,DCBLRECL
         BR    14
The exit is called using the usual linkage conventions with the address of the DCB in register 1 The program loads the LRECL; if there is no value in the LRECL, the program loads the input LRECL and stores it in the output DCB.

Re: IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR ST

PostPosted: Wed Sep 26, 2012 9:23 am
by steve-myers
NicC wrote:....For a variable length record file the blocksize must be (a multiple of the stated LRECL) + 4. But it is all in the JCL manual.
Actually, the only relationship between LRECL and BLKSIZE for datasets containing variable length records is BLKSIZE must be greater than or equal to LRECL + 4. Even this relation does not apply for RECFM=VBS. SMF data, for example, is usually RECFM=VBS, LRECL=32767, BLKSIZE=something.