SAMPLE   TITLE 'DO AN LMINIT AND THEN LMFREE'
SAMPLE   CSECT
         USING SAMPLE,15
         B     PASTID                      BRANCH AROUND I.D.
         DC    C'LMINIT  &SYSDATE'
PASTID   EQU   *
         STM   14,12,12(13)                SAVE CALLER'S REGS
         LR    12,15                       ESTABLISH A BASE
         DROP  15                          GIVE UP REG 15
         USING SAMPLE,12                   USE REG 12 AS BASE
         LA    11,SAVEOS                   POINT TO 'MY' SAVE AREA
         ST    13,4(0,11)                  STORE FORWARD POINTER
         ST    11,8(0,13)                  STORE BACKWARD POINTER
         LR    13,11                       LOCAL SAVE AREA POINTER
         SPACE
*********************************************************************
*        DEFINE VARIABLES TO ISPF                                   *
*********************************************************************
         CALL  ISPLINK,(VDEFINE,DATAID,DATA,CHAR,LNDATA),VL
         SPACE
*********************************************************************
*        INVOKE THE LMINIT SERVICE                                  *
*********************************************************************
         CALL  ISPLINK,(LMINIT,DATAID,B,B,B,B,B,B,DSN),VL
         SPACE
         LR    4,15                        PUT RETCODE IN REG 4
         SPACE
*********************************************************************
*        INVOKE THE LMFREE SERVICE                                  *
*********************************************************************
         CALL  ISPLINK,(LMFREE,DATA),VL
         SPACE
         LR    4,15                        PUT RETCODE IN REG 4
         SPACE

*********************************************************************
*        CLEAN UP VDEFINES                                          *
*********************************************************************
         CALL  ISPLINK,(VDELETE,DATAID),VL
         L     13,SAVEOS+4                 GET CALLER'S SAVE AREA
         LM    14,12,12(13)                RESTORE CALLERS REGS
         SR    15,15                       GO BACK WITH RETURN CODE 0
         BR    14                          LEAVE THIS MODULE
         CNOP  0,8
         LTORG
LNDATA   DC    F'8'                        LENGTH OF DATA
VDEFINE  DC    CL8'VDEFINE '               VDEFINE SERVICE
VDELETE  DC    CL8'VDELETE '               VDELETE SERVICE
LMINIT   DC    CL8'LMINIT  '               LMINIT SERVICE
LMFREE   DC    CL8'LMFREE  '               LMFREE SERVICE
DATAID   DC    CL8'DATA    '               VARIABLE
CHAR     DC    CL4'CHAR'                   VARIABLE
DSN      DC    C'PDFUSER.SAMPLE.PDS'' '  DATA SET NAME
DATA     DC    CL8'        '               DATAID SAVE AREA
SAVEOS   DS    18F                         STANDARD SAVE AREA
B        DC    CL1' '                      SINGLE BLANK
         LTORG
         END   SAMPLE