/*-------------------------------------------------------------------*/
/*                                                                   */
/*                       REXX Exec : STARTCOB                        */
/*                                                                   */
/*  Description : Create a skeleton Coboal Program                   */
/*                                                                   */
/*  Created on : 22 Mar 2018                                         */
/*  Created by : KEVIN FERGUSON                                      */
/*             : Userid(MIT001)                                      */
/*             : Using ABBYDALE.DEVL.REXX(STARTCOB)                  */
/*                                                                   */
/*  Called by : Edit Macro                                           */
/*                                                                   */
/*  Calls :  Nothing                                                 */
/*                                                                   */
/*  Change Activity :                                                */
/*                                                                   */
/*                ©Copyright of Abbydale Systems LLC.                */
/*                                                                   */
/*-------------------------------------------------------------------*/
ADDRESS ISREDIT "MACRO"
ADDRESS ISREDIT "(DSNAME) = DATASET"
ADDRESS ISREDIT "(MEMBER) = MEMBER"
ADDRESS ISREDIT '(LASTLINE) = LINENUM .ZLAST'
if  lastline > 0 then
ADDRESS ISREDIT "(LINE) = LINE 1"
address ISredit "Profile unlock"
address ISredit "HILITE COB"
address ISredit "Profile lock"
ADDRESS ISREDIT "RESET"
uline = translate(LINE)
s = USERID()
ascb = storage(224,4)                             /* psaaold  */
asxb = storage(d2x(c2d(ascb)+108),4)              /* ascbasxb */
acee = storage(d2x(c2d(asxb)+200),4)              /* acee     */
unam = storage(d2x(c2d(acee)+100),4)              /* aceeunam */
name=strip(storage(d2x(c2d(unam)+1),20))          /* Get name */
row = 0
mem = left(member,8,' ')'.'
fill = '-'
mline = '      *'
call putline
fill = ' '
mline = '       IDENTIFICATION DIVISION.'
call putcode
fill = '-'
mline = '      *'
call putline
mline = '       PROGRAM-ID. 'mem
call putcode
fill = '-'
mline = '      *'
call putline
fill = ' '
mline = '      *'
call putline
mline = '      * Description :'
fill = ' '
call putline
fill = ' '
mline = '      *'
call putline
mline = '      * Created on : 'date()
call putline
mline = '      * Created by : 'name
call putline
mline = '      *            : Userid('s')'
call putline
mline = '      *            : Using' dsname'('member')'
call putline
fill = ' '
mline = '      *'
call putline
mline = '      * Called by :'
call putline
fill = ' '
mline = '      *'
call putline
mline = '      * Calls :'
call putline
fill = ' '
mline = '      *'
call putline
mline = '      * Change Activity :'
call putline
fill = ' '
mline = '      *'
call putline
fill = '-'
mline = '      *'
call putline
fill = ' '
mline = '      *             ©Copyright of Abbydale Systems LLC.'
call putline
fill = '-'
mline = '      *'
call putline
fill = ' '
mline = '       ENVIRONMENT DIVISION.'
call putcode
fill = '-'
mline = '      *'
call putline
mline = '       INPUT-OUTPUT SECTION.'
call putcode
fill = '-'
mline = '      *'
call putline
mline = '       DATA DIVISION.'
call putcode
fill = '-'
mline = '      *'
call putline
mline = '       WORKING-STORAGE SECTION.'
call putcode
fill = '-'
mline = '      *'
call putline
mline = '       LINKAGE SECTION.'
call putcode
fill = '-'
mline = '      *'
call putline
mline = '       PROCEDURE DIVISION.'
call putcode
fill = '-'
mline = '      *'
call putline
mline = '       A-MAIN SECTION.'
call putcode
fill = '-'
mline = '      *'
call putline
mline = '           STOP RUN.'
call putcode
ADDRESS ISREDIT '(LASTLINE) = LINENUM .ZLAST'
row = lastline
fill = '-'
mline = '      *'
call putline
fill = ' '
mline = '      *           End of 'member
call putline
fill = '-'
mline = '      *'
call putline
exit
putline:
mline = Left(mline,67,fill)'*'
Address ISREDIT "LINE_AFTER "row "= '"mline"'"
row = row + 1
return
putleft:
mline = '*  'LEFT(tline,64,fill)'*'
putcode:
Address ISREDIT "LINE_AFTER "row "= '"mline"'"
row = row + 1
return
/*-------------------------------------------------------------------*/
/*                           End of STARTASM                         */
/*-------------------------------------------------------------------*/