;******************** START OF DBMS20-V6.1 EDIT PASDCM ***************
;
;            This is NOT a DBMS-20 V6.1 maintenance edit.  It  is
;    provided  to  negate  the effects of V6.1 development on the
;    padding of SYSCOM string registers (AREA-NAME,  RECORD-NAME,
;    ERROR-AREA,   ERROR-RECORD,   ERROR-SET).    In   V6,  these
;    registers  were  null  padded,  with  the   exception   that
;    AREA-NAME  and  RECORD-NAME  were  space padded for the MOVE
;    STATUS verb.  As of V6.1,  these  registers  will  be  space
;    padded in all cases.
;    
;            The application of this edit  will  revert  back  to
;    null  padding  for  STORE and FIND, and error reporting, and
;    space padding for MOVE STATUS.  The purpose of this edit  is
;    to  allow  sensitive applications to continue to run without
;    having to recompile/reload.  In  subsequent  releases,  this
;    option will not be available, and space padding will be used
;    in all cases.

.EDIT PADSCM
.NAME WTK
.DATE 19-AUG-83

.MODULE DBLEAV

.ALTER PADWRD,<0>,<ASCII/     />

.MODULE DBMOVE

NAMLEN==36
CPW==5

.INSERT MOVE$,REPLACE:2,<MOVEI R0,PV%UPD>
	MOVE	R1,SYSCOM(SS)
	MOVE	R0,[ASCII/     /]
	MOVEM	R0,ARNAM(R1)
	MOVSI	R0,ARNAM(R1)
	HRRI	R0,ARNAM+1(R1)
	BLT	R0,ARNAM-1+2*<NAMLEN/CPW>(R1)
.ENDI


.ENDE

;***************************** CAUTION *******************************
;
;		TO AVOID LOSING ANY PREVIOUS PATCHES  BE
;		SURE TO USE THE LATEST PATCHED REL FILES
;		       AS A BASE FOR THIS EDIT.
;
;	    THIS PATCH AFFECTS THE FOLLOWING DBMS COMPONENTS:
;
;			DBMS.REL/DBMS.EXE
;			LIBO12.EXE/C74O12.EXE
;
;
;	------------------ TO INSTALL THIS EDIT ------------------
;
;	@RUN SYS:MAKLIB
;	*DBSANY.REL=DBSANY.REL,PADSCM.FIX/F
;	*^Z
;	@SUBMIT DBMS20		;DBMS20.CTL FROM DISTRIBUTION TAPE
;
;************************** END OF EDIT PADSCM ***********************