I an trying to read a spanned file that has a record organzation of PS, a record format of VBS, a record length of 1, a blocksize of 27998 as per the file attributes, and a possible real record length of 65535. But in trying to open tne file I get a SOC4. I am not the greatest Assembler coder but my program is pretty simple. I know it is abending on the open. Anyone have any ideas. My actual input records in the spanned file are header records that are 76 bytes, data records that are 136 bytes, and trailer records that are 28 bytes. Any help will be greatly appreciated.
TITLE 'XP1000'
*
* 02/25/11 B HUNT CHANGED A SPANNED FILE TO A FIXED FILE
*
XP1000 AMODE 31
XP1000 RMODE ANY
XP1000 START
COPY EQUATES
SAVE (14,12) SAVE REGISTERS 14 THRU 12
BASR BASE1,0 ESTABLISH ADDRESSABILITY
USING *,BASE1 PROVIDE BASE ID
WTO ' START XP1000', X
ROUTCDE=(2), X
DESC=(7)
B BEGIN
SPACE 1
DS 0D
DC CL8'XP1000'
DC CL8'&SYSDATE'
DC CL8'&SYSTIME'
SPACE 1
BEGIN DS 0H
WTO ' BEFORE OPEN',ROUTCDE=(2),DESC=(7)
OPEN (INFILE,INPUT,OUTFILE,OUTPUT)
LTR 15,15
BNZ BADOPEN
WTO ' GOOD OPEN FILE',ROUTCDE=(2),DESC=(7)
LOOP DS 0H
GET INFILE,INREC
WTO ' GOOD FILE READ',ROUTCDE=(2),DESC=(7)
MVC BATA,DATA
WTO ' GOOD MOVE',ROUTCDE=(2),DESC=(7)
PUT OUTFILE,OUTREC
WTO ' GOOD FILE WRITE',ROUTCDE=(2),DESC=(7)
B LOOP
FINAL DS 0H
WTO ' BEFORE FILE CLOSE',ROUTCDE=(2),DESC=(7)
CLOSE (INFILE,,OUTFILE)
WTO ' GOOD FILE CLOSE',ROUTCDE=(2),DESC=(7)
B C100
BADOPEN WTO ' UABLE TO OPEN FILE',ROUTCDE=(2),DESC=(7)
B C100
BADREAD WTO ' READ UNSUCCESSFUL ',ROUTCDE=(2),DESC=(7)
B C100
BADWRITE WTO ' WRITE UNSUCCESSFUL ',ROUTCDE=(2),DESC=(7)
B C100
C100 DS 0H
RETURN (14,12) RESTORE REGISTERS AND RETURN
INFILE DCB DSORG=PS,RECFM=VBS,MACRF=GM, +
DDNAME=INDD,EODAD=FINAL
OUTFILE DCB
DSORG=PS,RECFM=FB,LRECL=28,BLKSIZE=2800,MACRF=PM, +
DDNAME=OUTDD
OUTREC DS 0CL28
BATA DS CL28
SAVEAREA DS 18F
LTORG
INREC DS 0F
DATA DS CL28
DS CL32000
DS CL32000
DS CL32000
END XP1000
====================================================
09.38.22 JOB33865 -JOBNAME STEPNAME PROCSTEP RC EXCP CONN
TCB SRB
09.38.22 JOB33865 -ASMJCL RMS RMS@2X 00 31 8
551177 .00
09.38.22 JOB33865 + START XP1000
09.38.22 JOB33865 + BEFORE OPEN
09.38.25 JOB33865 IEA995I SYMPTOM DUMP OUTPUT
742
742 SYSTEM COMPLETION CODE=0C4 REASON
CODE=00000010
742 TIME=09.38.22 SEQ=02516 CPU=0000 ASID=0060
742 PSW AT TIME OF ERROR 078C1000 80D26522 ILC 4 INTC
10
742 NO ACTIVE MODULE FOUND
742 NAME=UNKNOWN
742 DATA AT PSW 00D2651C - 56403DD6 0B049180
20324710
742 GR 0: 00011000 1: 00D00060
742 2: 001E9184 3: 00D264D2
742 4: 80D26522 5: 008FDBC0
742 6: 00D264D0 7: 00FBD480
742 8: 0E14409E 9: 8AAE2D88
742 A: 008CBC8D B: 008FF048
742 C: 010D93C0 D: 00006008
742 E: 90D26518 F: 008FF048
742 END OF SYMPTOM DUMP
====================================================
//ASMJCL JOB (DP,6010),'XXXXXX - HUNT ',CLASS=A,MSGCLASS=X,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*
//RMS EXEC CA11RMS,TYPRUN='F'
//*
//ASMEXEC EXEC PGM=XP1000,REGION=0M
//STEPLIB DD DISP=SHR,DSN=TEST.LE.LOADLIB
//INDD DD DISP=SHR,DSN=TEST.FONT.BACKUP,
// DSORG=PS,LRECL=X,BLKSIZE=27998,RECFM=VBS
//OUTDD DD DSN=TEST.FONT.BACKUP.FIXED,
// DISP=(,CATLG,CATLG),
// SPACE=(TRK,(1950,100),RLSE),
// DCB=(LRECL=28,BLKSIZE=0,RECFM=FB)
//SYSOUT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
