All: I am trying to create a Dataspace for the first time and tried the example IBM had in the macro manual, like below: CRTEDSPC START 0 CRTEDSPC AMODE 31 CRTEDSPC RMODE ANY BAKR R14,0 SAVE CALLER'S STATUS ON STACK SAC 512 SWITCH TO AR ADDRESS MODE SYSSTATE ASCENV=AR ENSURE PROPER CODE GEN. LAE R12,0 SET AR BASE REG BASR R12,0 SAVE AREA FORWARD LINK USING *,R12 SAVE AREA BACK LINK DSPSERV CREATE,NAME=VOYCACHE,STOKEN=VOYTOKEN, C BLOCKS=DSPBLCKS,ORIGIN=DSPCORG LTR R15,R15 BNO BAILOUT B NEXT BAILOUT DS 0H WTO 'DSPSERV FAILED',ROUTCDE=(11) B EXITOUT NEXT DS 0H WTO 'DSPSERV WORKED',ROUTCDE=(11) ALESERV ADD,STOKEN=VOYTOKEN,ALET=DSPCALET,AL=WORKUNIT LAM 2,2,DSPCALET L 2,DSPCORG USING DSPCMAP,R2 L R2,DATAIN ST R3,DSPWRD1 MVC DSPWRD2,DATAIN MVC DSPWRD3,DSPWRD2 MVC DATAOUT,DSPWRD3 ALESERV DELETE,ALET=DSPCALET DSPSERV DELETE,STOKEN=VOYTOKEN EXITOUT DS 0H PR DS 0D VOYCACHE DC CL8'VOYAGER' VOYTOKEN DS CL8 DSPCALET DS F DSPCORG DS F DSPCSIZE EQU 200000 DSPBLCKS DC A((DSPCSIZE+4095)/4096) * DATAIN DC CL16'DATA-IN-ONE' DATAOUT DS CL16 * DSPCMAP DSECT DSPWRD1 DS F DSPWRD2 DS F DSPWRD3 DS F YREGS END CRTEDSPC Sorry about the terrible formatting. The assembler assembles and binds correctly. But my question is can I call this routine from LE COBO ? I tried it and received this : 0281 IEF403I VOYTEST - STARTED - TIME=21.15.49 0281 IEF450I VOYTEST STEP1 - ABEND=S0F8 U0000 REASON=00000018 186 0281 TIME=21.15.50 0290 - -----TIMINGS (MINS.)------ I looked the message up, also hard to find and said this: S0F8 - 18 - THE SVC ISSUER WAS IN AR ADDRESS SPACE CONTROL MODE FOR AN SVC WHICH DOES NOT ALLOW THIS.
I assume this means LE Cobol can not switch into AR mode. This would have to be either a Assembler driver calling this DSPSERV or something similar. Thanks in Advance for any assistance. Scott J Ford Software Engineer http://www.identityforge.com/
