/* Program Id        -  AAC9379		                            */
/* Description       -  E3ASR E3SXF02, E3SXF04 Store Member Creator */
/*                   -  Builder		                            */
/* Application       -  XYZ Store Management System		    */
/* Business Unit     -  Merchandising				    */
/* Developer         -  Don Waterfield				    */
/* Date              -  08/09/2004		                    */
/* Purpose           -  Create E3SXF02, E3SXF04 Store Members	    */
/* Notes             -		                                    */
/*								    */
/********************************************************************/
/*  REVISION HISTORY:						    */
/*  DATE     DEVELOPER    REASON/PROJECT NAME			    */
/*  -------  ----------   ------------------------------------      */
/*								    */
/********************************************************************/
             PGM    PARM(&STOR)

             DCL        VAR(&STOR)      TYPE(*CHAR) LEN(4)
             DCL        VAR(&STORNAM)   TYPE(*CHAR) LEN(6)

             CHGVAR     VAR(&STORNAM) VALUE('S0xxxx')
             CHGVAR     VAR(%SST(&STORNAM 3 4)) VALUE(%SST(&STOR 1 4))

/* Check for E3SXF02 member			                    */
             CHKOBJ OBJ(*LIBL/E3SXF02) OBJTYPE(*FILE) MBR(&STORNAM)

/* Member not found so create it			            */
             MONMSG CPF9815 EXEC(ADDPFM FILE(*LIBL/E3SXF02) +
               MBR(&STORNAM) SHARE(*YES))

/* Check for E3SXF04 member			                    */
             CHKOBJ OBJ(*LIBL/E3SXF04) OBJTYPE(*FILE) MBR(&STORNAM)

/* Member not found so create it			            */
             MONMSG CPF9815 EXEC(ADDPFM FILE(*LIBL/E3SXF04) +
               MBR(&STORNAM) SHARE(*YES))

ENDPGM:
             ENDPGM