I'm trying connect to IMS to read a HDAM DB (DB1) segment (SEG1) and print first 5 records of it, but getting following error while executing PROC PRINT: IMS has terminated. Return code = 9991 Here is my code: //SASIMS EXEC SAS //SAS.WORK DD UNIT=(SYSDA),SPACE=(CYL,(100,99),RLSE), // DCB=(RECFM=FS,LRECL=6144,BLKSIZE=6144,DSORG=PS) //MYLIB DD DSN=TEST.DUMMY.DSN, // DISP=(NEW,CATLG,DELETE), // SPACE=(CYL,(50,50),RLSE),UNIT=SYSDA, // LABEL=EXPDT=2019/365, // DCB=(MODELDCB,RECFM=FS,LRECL=27648,BLKSIZE=27648,BUFNO=20) //* //IMS DD DSN=TEST.PSBLIB,DISP=SHR // DD DSN=TEST.DBDLIB,DISP=SHR //DFSRESLB DD DSN=TEST.RESLIB,DISP=SHR //* //SYSIN DD * OPTIONS NODATE LINESIZE=120; PROC ACCESS DBMS=IMS; CREATE MYLIB.DB1.ACCESS; DATABASE=DB1 DBTYPE=HDAM; RECORD='TEST REC' SEGMENT=SEG1 SEGLNG=756; ITEM='FLD1' LEVEL=2 DBFORMAT=$16. SEARCH=FLD1 KEY=Y; ITEM='FLD2' LEVEL=2 DBFORMAT=$135. SEARCH=FLD2; AN=Y; LIST ALL; CREATE MYLIB.SEG1.VIEW PSBNAME=PSB1 PCBINDEX=3; SELECT 'TEST REC'; LIST VIEW; RUN; PROC DATASETS LIB=MYLIB; CONTENTS DATA =_ALL_; QUIT; RUN; PROC PRINT DATA=MYLIB.VSLPTAP(OBS=5); RUN; I'm unable to get to the root cause. Can someone please advise? Ref used to develop this code: http://support.sas.com/documentation/cdl/en/acims/59519/PDF/default/acims.pdf
... View more