/*-------------------------------------------------------------------*/
/*                                                                   */
/*                         REXX Exec : STARTPNL                      */
/*                                                                   */
/*  Description : Create a skeleton ISPF Panel                       */
/*                                                                   */
/*  Created on : 22 Mar 2018                                         */
/*  Created by : KEVIN FERGUSON                                      */
/*             : Userid(MIT001)                                      */
/*             : Using ABBYDALE.DEVL.REXX(STARTPNL)                  */
/*                                                                   */
/*  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 PANEL"
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,' ')
mline = ')ATTR'
call putcode
mline = ' _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) COLOR(TURQ)'
mline = mline 'PAD(''_'')'
Call putcode
mline = ' ! TYPE(TEXT)  INTENS(&INTENS) COLOR(RED)'
call putcode
mline = ' # TYPE(TEXT)  SKIP(ON)  COLOR(BLUE)'
call putcode
mline = ' + TYPE(TEXT)  SKIP(ON)  COLOR(TURQ)'
call putcode
mline = ' ~ TYPE(TEXT)  INTENS(HIGH) JUST(ASIS) COLOR(WHITE)'
call putcode
mline = ' ` TYPE(TEXT)  INTENS(HIGH) JUST(ASIS) COLOR(RED)'
mline = mline 'HILITE(REVERSE)'
call putcode
mline = ' } TYPE(TEXT)  INTENS(HIGH) SKIP(ON)  COLOR(YELLOW)'
call putcode
mline = ' { TYPE(TEXT)  INTENS(HIGH) SKIP(ON)  COLOR(GREEN)'
call putcode
mline = ' ^ TYPE(OUTPUT) SKIP(ON) INTENS(HIGH) COLOR(BLUE)'
call putcode
mline = ')BODY EXPAND('''')'
call putcode
mline = '+Your snappy panel title goes here                         '
mline = mline '+USERID   -  &ZUSER    '
Call putcode
mline = '# '
mline = mline '' ''
Call putcode
mline = '{Option ===>_ZCMD'
Call putcode
mline = '# '
mline = mline '' ''
Call putcode
mline = '%''*'''
Call putcode
mline = '%*%Date :{&ZDATE '' ''%Time :{&ZTIME '''
mline = mline '''%Julian Date:{&ZJ4DATE%*'
Call putcode
mline = '%*'' ''*'
Call putcode
fill = '-'
tline = '-'
call putline
fill = ' '
tline = ' '
call putline
tline = 'Your code goes here'
call putleft
tline = ' '
call putline
fill = '-'
tline = '-'
call putline
ADDRESS ISREDIT '(LASTLINE) = LINENUM .ZLAST'
row = lastline
fill = ' '
tline = ' '
call putline
mline = '%*'' ''}Press !PFK3} to terminate'' ''%*'
call putcode
mline = '%''*'''
call putcode
mline = '%''*'' #Copyright Abbydale Systems LLC 2017 -^copy%''*'''
call putcode
mline = '%''*'''
call putcode
mline = ')INIT'
call putcode
mline = ' &copy = &ZSTDYEAR'
call putcode
mline = ' .cursor = ZCMD'
call putcode
mline = ')REINIT'
call putcode
mline = ')PROC'
call putcode
mline = '  &ZTRAIL = .TRAIL'
call putcode
mline = ')END'
call putcode
exit
putline:
mline = '*'CENTER(tline,69,fill)'*'
Address ISREDIT "LINE_AFTER "row "= '"mline"'"
row = row + 1
return
putleft:
mline = '*  'LEFT(tline,67,fill)'*'
putcode:
Address ISREDIT "LINE_AFTER "row "= DATALINE (mline)"
row = row + 1
return