Deutsche CA Endevor User Group

 View Only

Readable Footprint in Load module

  • 1.  Readable Footprint in Load module

    Posted Oct 28, 2011 05:20 AM
    Here is on possible solution to get a readable footprint into a load module

    Processor steps
    1) //GENPROC PROC RENT=RENT, and so on
    2) //INITLIST EXEC PGM=BC1PDSIN and so on

    3)
    //READFOOT EXEC PGM=ASMA90,PARM='OBJECT,NOLIST,TERM'
    //SYSLIB DD DSN='SYS1.MACLIB',DISP=SHR
    //SYSPRINT DD SYSOUT=*
    //SYSTERM DD SYSOUT=*
    //SYSLIN DD DISP=SHR,DSN=PUBLIC.P9999.OBJECTF
    //SYSPUNCH DD DUMMY
    //SYSIN DD *
    TITLE 'Readable ENDEVOR Footprint'
    $FTPRNT$ CSECT
    BR 14
    ** DC Area
    COPY2011 DC CL20' Ruediger Marx 2011 '
    DC CL26'ENDEVOR FOOTPRINT >>>>>>>>'
    SITEH DC CL08'* Site *'
    SITET DC CL08'&C1SITE '
    ENVH DC CL08'* ENV *'
    ENVT DC CL08'&C1SENVMNT'
    STAGEH DC CL08'* STAGE*'
    STAGET DC CL08'&C1SSTAGE'
    SYSTEMH DC CL08'* SYST *'
    SYSTEMT DC CL08'&C1SY '
    SUBH DC CL08'* SUB *'
    SUBT DC CL08'&C1SU '
    TYPEH DC CL08'* TYPE *'
    TYPET DC CL08'&C1SELTYPE'
    ELEMENH DC CL08'* ELEM *'
    ELEMENT DC CL08'&C1ELEMENT'
    VVLLH DC CL08'* VVLL *'
    VVLLT DC CL08'&C1VER.&C1LEV'
    DATEH DC CL08'* DATE *'
    DATET DC CL08'&C1ADDMMYYYY'
    TIMEH DC CL08'* TIME *'
    TIMET DC CL08'&C1AHHMMSS'
    DC CL26'<<<<<<<< ENDEVOR FOOTPRINT'
    FOOTPRT DC CL32'&C1FOOTPRT(1,32)'
    DC CL32'&C1FOOTPRT(33,32)'
    DC CL08'<<<<<<<<'
    END
    4) //CONWRITE EXEC PGM=CONWRITE,PARM='EXPINCL(Y)' and so on
    5)
    //COMPILE2 EXEC PGM=IGYCRCTL,PARM=(APOST,OBJECT,LIB,NOSEQ) and so on

    //SYSLIN DD DSN=PUBLIC.P9999.OBJECT,DISP=SHR
    This is a Cobol compile step, but you can use any other compiler also
    6) With the second SYSLIN DD we add the Footprint Information to the load
    //LKED EXEC PGM=IEWL,PARM='LIST,MAP,XREF'
    //SYSLIN DD DISP=SHR,DSN=PUBLIC.P9999.OBJECT
    // DD DISP=SHR,DSN=PUBLIC.P9999.OBJECTF
    //SYSLMOD DD DISP=SHR,DSN=PUBLIC.P9999.LOADLIB(COBPRG01)
    //SYSLIB DD DISP=SHR,DSN=IBMPROD.V1R4M0.COB2LIB
    //SYSUT1 DD UNIT=3390,SPACE=(CYL,(1,1))
    //SYSPRINT DD SYSOUT=*
    7) And other steps

    The result in the Loadmod is
    ENDEVOR FOOTPRINT >>>>>>>>* Site *0 * ENV ENV1    STAGE*STG1
    And so on