|
|
This is a sample screen shoot of the output generated by executing the STARTPNL edit macro as supplied on this website.
Notice that the panel name will be the same name as the member name being created. Also notice that the edit macro
generates screen defaults that we use at Abbydale Systems, these will need to be changed to your own defaults.
File Edit Edit_Settings Menu Utilities Compilers Test Help
-------------------------------------------------------------------------------
EDIT ABBYDALE.DEVL.ISPPLIB(TEST) - 01.09 Member TEST saved
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 )ATTR
000002 _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) COLOR(TURQ) PAD('_')
000003 ! TYPE(TEXT) INTENS(&INTENS) COLOR(RED)
000004 # TYPE(TEXT) SKIP(ON) COLOR(BLUE)
000005 + TYPE(TEXT) SKIP(ON) COLOR(TURQ)
000006 ~ TYPE(TEXT) INTENS(HIGH) JUST(ASIS) COLOR(WHITE)
000007 ` TYPE(TEXT) INTENS(HIGH) JUST(ASIS) COLOR(RED) HILITE(REVERSE)
000008 } TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(YELLOW)
000009 { TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(GREEN)
000010 ^ TYPE(OUTPUT) SKIP(ON) INTENS(HIGH) COLOR(BLUE)
000011 )BODY EXPAND('')
000012 +Your snappy panel title goes here +USERID -
000013 #
000014 {Option ===>_ZCMD
000015 #
000016 %'*'
000017 %*%Date :{&ZDATE ' '%Time :{&ZTIME ' '%Julian Date:{&ZJ4DATE%*
000018 %*' '*
000019 *---------------------------------------------------------------------*
000020 * *
000021 * Your code goes here *
000022 * *
000023 *---------------------------------------------------------------------*
000024 * *
000025 %*' '}Press !PFK3} to terminate' '%*
000026 %'*'
000027 %'*' #Copyright Abbydale Systems LLC 2017 -^copy%'*'
000028 %'*'
000029 )INIT
000030 © = &ZSTDYEAR
000031 .cursor = ZCMD
000032 )REINIT
000033 )PROC
000034 &ZTRAIL = .TRAIL
000035 )END
F1=Help F2=Split F3=Exit F5=Rfind F6=Rchange F7=Up
F8=Down F9=Swap F10=Left F11=Right F12=RETRIEVE
|
Below is a screen shot of what the above generated member looks like when viewed using TSO option 7.2
Your snappy panel title goes here USERID - MIT001
Option ===>
*******************************************************************************
* Date : 20/08/13 Time : 19:29 Julian Date: 2020.226 *
* *
*---------------------------------------------------------------------*
* *
* Your code goes here *
* *
*---------------------------------------------------------------------*
* *
* Press PFK3 to terminate *
*******************************************************************************
********************** Abbydale Systems LLC 2017 - 2020 **********************
*******************************************************************************
|
|
|
