From 382f184aace1700a01a3c8298f18b88cc0b71dcd Mon Sep 17 00:00:00 2001 From: Xavier Houis Date: Wed, 19 Feb 2020 13:41:12 +0100 Subject: [PATCH] ISPF Git Client Bug FIxes * Xav_Feb11 * Fix bgzclo containing binary * Display DBB user build messages by view logfile --- IDE/GitISPFClient/sbgzexec/bgzcmd.rexx | 48 ++- IDE/GitISPFClient/sbgzexec/bgzdbbub.rexx | 396 ++++++++++++----------- IDE/GitISPFClient/sbgzexec/bgzrepos.rexx | 69 +++- IDE/GitISPFClient/sbgzexec/bgzuslst.rexx | 2 + IDE/GitISPFClient/sbgzgml/bgzcfclo.gml | 37 +++ IDE/GitISPFClient/sbgzgmli/bgzcfclb.gmli | 37 +++ IDE/GitISPFClient/sbgzpenu/bgzcfclo.penu | 31 ++ IDE/GitISPFClient/sbgzsamp/bgzgit.jcl | 2 + 8 files changed, 412 insertions(+), 210 deletions(-) create mode 100644 IDE/GitISPFClient/sbgzgml/bgzcfclo.gml create mode 100644 IDE/GitISPFClient/sbgzgmli/bgzcfclb.gmli create mode 100644 IDE/GitISPFClient/sbgzpenu/bgzcfclo.penu diff --git a/IDE/GitISPFClient/sbgzexec/bgzcmd.rexx b/IDE/GitISPFClient/sbgzexec/bgzcmd.rexx index 494c0da9..c4dcc662 100644 --- a/IDE/GitISPFClient/sbgzexec/bgzcmd.rexx +++ b/IDE/GitISPFClient/sbgzexec/bgzcmd.rexx @@ -69,25 +69,38 @@ runShell : If pos(gitcmd,noPOP) = 0 Then Do - Call BuildDYN - curline = 1 - "ISPEXEC ADDPOP" - panel = 'BGZMSG' - DispRc = DispPanel() - Do while (DispRc = 0) - Call Scroll + If gitcmd = 'dbbub' Then + Do + BGZEMIX = 'NO' + 'VGET (ZDBCS) SHARED' + If ZDBCS = 'YES' THEN BGZEMIX = 'YES' + "CONTROL ERRORS RETURN" + "VIEW File(BGZFLOG) MIXED("BGZEMIX")" + If rc > 0 Then + Say ZERRLM + "CONTROL ERRORS CANCEL" + End + Else + Do Call BuildDYN + curline = 1 + "ISPEXEC ADDPOP" panel = 'BGZMSG' DispRc = DispPanel() + Do while (DispRc = 0) + Call Scroll + /* Call BuildDYN */ + panel = 'BGZMSG' + DispRc = DispPanel() + End + "ISPEXEC REMPOP" End - "ISPEXEC REMPOP" End Return sh_rc /* --------------------------------------------- */ -/* Procedure to build the dependency options */ -/* dynamic area */ +/* Procedure to build the messages dynamic area */ /* --------------------------------------------- */ BuildDYN: @@ -99,14 +112,19 @@ BuildDYN: Do i = 1 to gitLine.0 x = length(gitLine.i) If x < 70 Then + Do dyndata = dyndata||fit2line(gitLine.i) + maxlines = maxlines + 1 + End Else Do + /* I thing we may need a loop to break the line */ + /* looks like it breaks line in 2 only */ lastBlank = LastPos(' ',Substr(gitLine.i,1,70)) dyndata = dyndata||fit2line(Substr(gitLine.i,1,lastBlank)) dyndata = dyndata||fit2line(x04||Substr(gitLine.i,lastBlank+1)) + maxlines = maxlines + 2 End - maxlines = maxlines + 1 End Return @@ -117,6 +135,7 @@ Return /* --------------------------------------------- */ DispPanel: + BGZdyn = substr(dyndata,1+(curline-1)*70) /* set dynamic variable */ "ISPEXEC DISPLAY PANEL("panel")" DispRc = rc @@ -414,4 +433,11 @@ ReadOutput : End gitLine.0 = k + If gitcmd = 'dbbub' Then + Do + 'VGET (BGZFLOG) SHARED' + confile = BGZFLOG + Address syscall "writefile (confile) 755 gitline." + End + Return diff --git a/IDE/GitISPFClient/sbgzexec/bgzdbbub.rexx b/IDE/GitISPFClient/sbgzexec/bgzdbbub.rexx index 876cd07a..df5f2aaa 100644 --- a/IDE/GitISPFClient/sbgzexec/bgzdbbub.rexx +++ b/IDE/GitISPFClient/sbgzexec/bgzdbbub.rexx @@ -38,6 +38,7 @@ 'TBCREATE BGZDBBUB', 'KEYS(BGZUSREP,BGZUSLOC) NAMES(BGZBLSCR,BGZBLSAN,BGZBLWRK,BGZBLHLQ) WRITE' End + 'VGET (BGZJAVAH,BGZDBBH) SHARED' groovyz = BGZDBBH'/bin/groovyz' @@ -53,7 +54,7 @@ GetDBB_RC = RC If GetDBB_RC /=0 Then Do - BGZBLSAN = '' + BGZBLSAN = BGZUSLOC BGZBLWRK = '' BGZBLHLQ = '' BGZBLLOG = '' @@ -64,230 +65,241 @@ DoDBBub = 1 'ADDPOP' 'DISPLAY PANEL(BGZDBBUB)' - TB_RC = RC - 'VGET (ZVERB)' - If TB_RC = 8 | ZVERB = 'CANCEL' Then - Do - DoDBBub = -1 - 'REMPOP' - End + TB_RC = RC + 'VGET (ZVERB)' + If TB_RC = 8 | ZVERB = 'CANCEL' Then + Do + DoDBBub = -1 + 'REMPOP' + End - /* If Verify(BGZBLSCR,'/') = 1 Then - Do - 'SETMSG MSG(BGZC015)' - DoDBBub = -1 - End */ + /* If Verify(BGZBLSCR,'/') = 1 Then + Do + 'SETMSG MSG(BGZC015)' + DoDBBub = -1 + End */ - If DoDBBub <> -1 Then - Do - /* DBB user build options */ - script = BGZBLSCR - sandbox = BGZBLSAN - workdir = BGZBLWRK - hlq = BGZBLHLQ - /* Need to construct build file from */ - /* DBB structure : Build/application/folder/file */ - y = lastPos('Build/',BGZUSSDR) - l = length(BGZUSSDR) - z = y - 1 - l = l - z - bldfold = Substr(BGZUSSDR,y,l) - BGZFILE = bldfold'/'BGZUSFIL + If DoDBBub <> -1 Then + Do + /* DBB user build options */ + script = BGZBLSCR + sandbox = BGZBLSAN + workdir = BGZBLWRK + hlq = BGZBLHLQ + /* Need to construct build file from */ + /* DBB structure : Build/application/folder/file */ + /* y = lastPos('Build/',BGZUSSDR) + l = length(BGZUSSDR) + z = y - 1 + l = l - z */ + /*== construct --userBuild folder from everything after working dir + in full Path ==*/ + y = length(BGZUSLOC) + l = length(BGZUSSDR) + z = y + 1 + y = y + 2 + l = l - z + bldfold = Substr(BGZUSSDR,y,l) + BGZFILE = bldfold'/'BGZUSFIL - shellcmd = '' + shellcmd = '' - shellcmd = shellcmd || 'cd' builddir';' - shellcmd = shellcmd || 'export JAVA_HOME='BGZJAVAH';' - shellcmd=shellcmd || script + shellcmd = shellcmd || 'cd' builddir';' + shellcmd = shellcmd || 'export JAVA_HOME='BGZJAVAH';' + shellcmd=shellcmd || script - /* Enter pressed without command S - navigate to Script Parameters */ - If BGZCMD = '' Then - Do - /* BGZPROPS table to be displayed on Script Parameters panel */ - 'TBCREATE BGZPROPS', - 'KEYS(BGZPROW) NAMES(BGZPNAME,BGZPVAL,BGZPMCMD)', - 'REPLACE NOWRITE' - 'TBSORT BGZPROPS FIELDS(BGZPROW)' - BGZPROW = '000001' - BGZPNAME = '--sourceDir' - BGZPVAL = sandbox - BGZPMCMD = '' - 'TBADD BGZPROPS ORDER' - BGZPROW = BGZPROW + 1 - BGZPNAME = '--workDir' - BGZPVAL = workdir - BGZPMCMD = '' - 'TBADD BGZPROPS ORDER' - BGZPROW = BGZPROW + 1 - BGZPNAME = '--hlq' - BGZPVAL = hlq - BGZPMCMD = '' - 'TBADD BGZPROPS ORDER' + /* Enter pressed without command S - navigate to Script Parameters */ + If BGZCMD = '' Then + Do + /* BGZPROPS table to be displayed on Script Parameters panel */ + 'TBCREATE BGZPROPS', + 'KEYS(BGZPROW) NAMES(BGZPNAME,BGZPVAL,BGZPMCMD)', + 'REPLACE NOWRITE' + 'TBSORT BGZPROPS FIELDS(BGZPROW)' + BGZPROW = '000001' + BGZPNAME = '--sourceDir' + BGZPVAL = sandbox + BGZPMCMD = '' + 'TBADD BGZPROPS ORDER' + BGZPROW = BGZPROW + 1 + BGZPNAME = '--workDir' + BGZPVAL = workdir + BGZPMCMD = '' + 'TBADD BGZPROPS ORDER' + BGZPROW = BGZPROW + 1 + BGZPNAME = '--hlq' + BGZPVAL = hlq + BGZPMCMD = '' + 'TBADD BGZPROPS ORDER' - nbparm = BGZPROW - DoReq = 0 + nbparm = BGZPROW + DoReq = 0 + PRPROW = '000001' + Do Until DoReq > 0 PRPROW = '000001' - Do Until DoReq > 0 - PRPROW = '000001' - 'TBTOP BGZPROPS' - 'TBSKIP BGZPROPS NUMBER('PRPROW')' - 'TBDISPL BGZPROPS PANEL(BGZDBBPM)' - TB_RC = RC - 'VGET (ZVERB)' - If TB_RC = 8 | ZVERB = 'CANCEL' Then - Do - DoReq = -1 - Leave - End + 'TBTOP BGZPROPS' + 'TBSKIP BGZPROPS NUMBER('PRPROW')' + 'TBDISPL BGZPROPS PANEL(BGZDBBPM)' + TB_RC = RC + 'VGET (ZVERB)' + If TB_RC = 8 | ZVERB = 'CANCEL' Then + Do + DoReq = -1 + Leave + End - If ZTDSELS = 0 Then - PRPROW = ZTDTOP - Do While ZTDSELS > 0 - 'TBMOD BGZPROPS ORDER' - 'TBGET BGZPROPS POSITION(PRPROW)' - If ZTDSELS = 1 Then - ZTDSELS = 0 - Else - 'TBDISPL BGZPROPS' - End + If ZTDSELS = 0 Then + PRPROW = ZTDTOP + Do While ZTDSELS > 0 + 'TBMOD BGZPROPS ORDER' + 'TBGET BGZPROPS POSITION(PRPROW)' + If ZTDSELS = 1 Then + ZTDSELS = 0 + Else + 'TBDISPL BGZPROPS' + End - If ZVERB <> ' ' Then - Iterate + If ZVERB <> ' ' Then + Iterate - If BGZNPNAM <> '' & BGZNPVAL <> '' Then - Do - nbparm = nbparm + 1 - BGZPROW = nbparm - BGZPNAME = BGZNPNAM - BGZPVAL = BGZNPVAL - BGZNPNAM = '' - BGZNPVAL = '' - 'TBADD BGZPROPS ORDER' - 'TBSORT BGZPROPS FIELDS(BGZPROW)' - End - /* S command on BGZDBBPM panel */ - If BGZCMD = 'S' Then - Do - DoReq = 1 - 'TBTOP BGZPROPS' + If BGZNPNAM <> '' & BGZNPVAL <> '' Then + Do + nbparm = nbparm + 1 + BGZPROW = nbparm + BGZPNAME = BGZNPNAM + BGZPVAL = BGZNPVAL + BGZNPNAM = '' + BGZNPVAL = '' + 'TBADD BGZPROPS ORDER' + 'TBSORT BGZPROPS FIELDS(BGZPROW)' + End + /* S command on BGZDBBPM panel */ + If BGZCMD = 'S' Then + Do + DoReq = 1 + 'TBTOP BGZPROPS' + 'TBSKIP BGZPROPS' + Do While(RC = 0) + shellcmd=shellcmd || '' BGZPNAME BGZPVAL 'TBSKIP BGZPROPS' - Do While(RC = 0) - shellcmd=shellcmd || '' BGZPNAME BGZPVAL - 'TBSKIP BGZPROPS' - End - shellcmd=shellcmd || ' --userBuild' BGZFILE + End + shellcmd=shellcmd || ' --userBuild' BGZFILE - If GetDBB_RC = 0 Then - 'TBMOD BGZDBBUB' - Else - 'TBADD BGZDBBUB' + If GetDBB_RC = 0 Then + 'TBMOD BGZDBBUB' + Else + 'TBADD BGZDBBUB' - DBB_rc = BGZCMD('dbbub' shellcmd) - BGZCMD = '' - Iterate + DBB_rc = BGZCMD('dbbub' shellcmd) + BGZCMD = '' + Iterate + End + 'TBTOP BGZPROPS' + 'TBSKIP BGZPROPS POSITION(TEMPROW)' + Do While RC = 0 + If BGZPMCMD = '/' Then + Do + PRPROW = TEMPROW + BGZPMCMD = GetPMCMD(BGZBLSCR) End - 'TBTOP BGZPROPS' - 'TBSKIP BGZPROPS POSITION(TEMPROW)' - Do While RC = 0 - If BGZPMCMD = '/' Then + + Select + When BGZPMCMD = 'D' Then Do PRPROW = TEMPROW - BGZPMCMD = GetPMCMD(BGZBLSCR) + 'TBDELETE BGZPROPS' End - Select - When BGZPMCMD = 'D' Then - Do - PRPROW = TEMPROW - 'TBDELETE BGZPROPS' - End + When BGZPMCMD = 'E' Then + Do + PRPROW = TEMPROW + 'CONTROL DISPLAY SAVE' + oldprnme = BGZPNAME + 'ADDPOP' - When BGZPMCMD = 'E' Then + BGZPRNME = BGZPNAME + BGZPRVAL = BGZPVAL + 'DISPLAY PANEL(BGZDBBSC)' + TB_RC = RC + 'VGET (ZVERB)' + If TB_RC <> 8 & ZVERB <> 'CANCEL' Then Do - PRPROW = TEMPROW - 'CONTROL DISPLAY SAVE' - oldprnme = BGZPNAME - 'ADDPOP' - - BGZPRNME = BGZPNAME - BGZPRVAL = BGZPVAL - 'DISPLAY PANEL(BGZDBBSC)' - TB_RC = RC - 'VGET (ZVERB)' - If TB_RC <> 8 & ZVERB <> 'CANCEL' Then + If COMPARE(BGZPRNME,BGZPNAME) = 0 Then + Do + BGZPVAL = BGZPRVAL + 'TBMOD BGZPROPS' + End + Else Do - If COMPARE(BGZPRNME,BGZPNAME) = 0 Then - Do - BGZPVAL = BGZPRVAL - 'TBMOD BGZPROPS' - End - Else - Do - 'TBDELETE BGZPROPS' - BGZPNAME = BGZPRNME - BGZPVAL = BGZPRVAL - 'TBADD BGZPROPS' - End + 'TBDELETE BGZPROPS' + BGZPNAME = BGZPRNME + BGZPVAL = BGZPRVAL + 'TBADD BGZPROPS' End - 'REMPOP' - 'CONTROL DISPLAY RESTORE' End + 'REMPOP' + 'CONTROL DISPLAY RESTORE' + End - Otherwise NOP - End /* Select; */ + Otherwise NOP + End /* Select; */ - If BGZPMCMD <> 'D' Then - Do - PRPROW = TEMPROW - BGZPMCMD = '' - 'TBMOD BGZPROPS' - End - 'TBSKIP BGZPROPS POSITION(TEMPROW)' + If BGZPMCMD <> 'D' Then + Do + PRPROW = TEMPROW + BGZPMCMD = '' + 'TBMOD BGZPROPS' End + 'TBSKIP BGZPROPS POSITION(TEMPROW)' End - 'TBEND BGZPROPS' End + 'TBEND BGZPROPS' + End - /* S command on BGZDBBUB panel */ - If BGZCMD = 'S' Then - Do - DoReq = 1 - shellcmd=shellcmd || ' --sourceDir' sandbox - shellcmd=shellcmd || ' --workDir' workdir - shellcmd=shellcmd || ' --hlq' hlq - shellcmd=shellcmd || ' --userBuild' BGZFILE + /* S command on BGZDBBUB panel */ + If BGZCMD = 'S' Then + Do + DoReq = 1 + shellcmd=shellcmd || ' --sourceDir' sandbox + shellcmd=shellcmd || ' --workDir' workdir + shellcmd=shellcmd || ' --hlq' hlq + shellcmd=shellcmd || ' --userBuild' BGZFILE - If GetDBB_RC = 0 Then - 'TBMOD BGZDBBUB' - Else - 'TBADD BGZDBBUB' + If GetDBB_RC = 0 Then + 'TBMOD BGZDBBUB' + Else + 'TBADD BGZDBBUB' - DBB_rc = BGZCMD('dbbub' shellcmd) - BGZCMD = '' - End - - 'REMPOP' - /* View build output on completion */ - If BGZBLLOG = '/' & DoReq = 1 Then - Do - x = Lastpos('.',BGZUSFIL) - filename = Substr(BGZUSFIL,1,x-1) - UPPERCASE = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' - lowercase = 'abcdefghijklmnopqrstuvwxyz' - input= filename - input_upper = translate(input, uppercase, lowercase) - filename = input_upper - BGZUSLOG = filename'.log' - BGZFLOG = BGZBLWRK'/'BGZUSLOG - BGZEMIX = 'NO' - 'VGET (ZDBCS) SHARED' - If ZDBCS = 'YES' THEN BGZEMIX = 'YES' - "BROWSE File(BGZFLOG) MIXED("BGZEMIX")" - If RC = 20 Then - 'SETMSG MSG(BGZC039)' - End + BGZFLOG = BGZBLWRK'/dbbub.log' + 'VPUT (BGZFLOG) SHARED' + DBB_rc = BGZCMD('dbbub' shellcmd) + BGZCMD = '' End + 'REMPOP' + /* View build output on completion */ + If BGZBLLOG = '/' & DoReq = 1 Then + Do + x = Lastpos('.',BGZUSFIL) + filename = Substr(BGZUSFIL,1,x-1) + UPPERCASE = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' + lowercase = 'abcdefghijklmnopqrstuvwxyz' + input= filename + input_upper = translate(input, uppercase, lowercase) + filename = input_upper + BGZUSLOG = filename'.log' + BGZFLOG = BGZBLWRK'/'BGZUSLOG + BGZEMIX = 'NO' + 'VGET (ZDBCS) SHARED' + If ZDBCS = 'YES' THEN BGZEMIX = 'YES' + "CONTROL ERRORS RETURN" + "BROWSE File(BGZFLOG) MIXED("BGZEMIX")" + BR_RC = RC + "CONTROL ERRORS CANCEL" + If BR_RC = 20 Then + 'SETMSG MSG(BGZC039)' + End + End End 'TBCLOSE BGZDBBUB' diff --git a/IDE/GitISPFClient/sbgzexec/bgzrepos.rexx b/IDE/GitISPFClient/sbgzexec/bgzrepos.rexx index 2f2ed8c6..7f503deb 100644 --- a/IDE/GitISPFClient/sbgzexec/bgzrepos.rexx +++ b/IDE/GitISPFClient/sbgzexec/bgzrepos.rexx @@ -88,16 +88,71 @@ End End - /* Git Clone operation */ + /* Need to check if BGZUSDIR/reponame already exists */ + ToClone = 1 + /* Capture master folder of cloned repository toto of toto.git */ + x = lastPos('/',BGZNREPO) + repoName = Substr(BGZNREPO,x+1) + y = lastPos('.git',repoName) + repoName = Substr(repoName,1,y-1) + BGZUSDIR = BGZNDIR'/'repoName + Address SYSCALL 'readdir 'BGZUSDIR' ls. lsst.' + /* working directory already exist */ + If ls.0 /= 0 Then + Do + 'ADDPOP' + 'DISPLAY PANEL(BGZCFCLO)' + TB_RC = RC + 'VGET (ZVERB)' + /* Reconnect or Raplace clone */ + If TB_RC <> 8 & ZVERB <> 'CANCEL' Then + Do + /* Only reconnect the git repo in BGZCLONE table */ + If BGZRECON = 1 Then + ToClone = 0 + + If BGZRECON = 2 Then + Do + /* Remove Working Directory */ + Call bpxwunix 'rm -R' '"'BGZUSDIR'"',,list.,stderr. + /* Check USS directory no more exist */ + Address SYSCALL 'readdir 'BGZUSDIR' ls. lsst.' + If ls.0 = 0 Then + Do + ToClone = 1 + Git_rc = 0 + End + Else + Do + /* Error message on romove directory */ + 'SETMSG MSG(BGZC032)' + End + End + End + /* PF3 : do nothing */ + Else + Do + ToClone = 0 + Git_rc = 1 + End + + 'REMPOP' + + End + Git_rc = 0 - 'VGET BGZENVIR SHARED' - shellcmd = '' - shellcmd = shellcmd || BGZENVIR + If ToClone = 1 Then + Do + /* Git Clone operation */ + 'VGET BGZENVIR SHARED' + shellcmd = '' + shellcmd = shellcmd || BGZENVIR - shellcmd=shellcmd || 'cd' BGZNDIR';'||, - 'git clone' BGZNREPO + shellcmd=shellcmd || 'cd' BGZNDIR';'||, + 'git clone' BGZNREPO - Git_rc = BGZCMD('clone' shellcmd) + Git_rc = BGZCMD('clone' shellcmd) + End If Git_rc = 0 Then Do /* Create BGZCLONE row for the cloned repository */ diff --git a/IDE/GitISPFClient/sbgzexec/bgzuslst.rexx b/IDE/GitISPFClient/sbgzexec/bgzuslst.rexx index 9d6610e2..d4ad8f8e 100644 --- a/IDE/GitISPFClient/sbgzexec/bgzuslst.rexx +++ b/IDE/GitISPFClient/sbgzexec/bgzuslst.rexx @@ -487,6 +487,8 @@ DISPUSS: RC = 8 End + /* Reset BGZPATH for next bpxwunix cd command */ + BGZPATH = '"'BGZUSSDR'"' /* Refresh list to display correct Git Status */ If TB_RC <> 8 & ZVERB <> 'CANCEL' Then Do diff --git a/IDE/GitISPFClient/sbgzgml/bgzcfclo.gml b/IDE/GitISPFClient/sbgzgml/bgzcfclo.gml new file mode 100644 index 00000000..2d54b46a --- /dev/null +++ b/IDE/GitISPFClient/sbgzgml/bgzcfclo.gml @@ -0,0 +1,37 @@ + + + <:-- Start of translatable panel text section --> + <:-- text delimited by " is to be translated --> + <:-- text should end with '">' as shown. --> + <:-- the '">' can be moved to the right for text expnsion --> + +<:-- panel title text follows - maximum length = 78 bytes --> + <:ENTITY panel_title "Confirm Action on Clone operation"> + +<:-- window title text follows - maximum length = 53 bytes --> + <:ENTITY window_title " "> + +<:ENTITY bgzrepos_prompt "Git Repository :"> +<:ENTITY bgzusdir_prompt "Working Directory :"> +<:-- panel instruction text line - maximum text length = 53 bytes --> + <:ENTITY group_header_1 "Instructions:"> + <:ENTITY panel_instruct_1 + "The working directory already exists. This could be caused by an incorrect +disconnection from ISPF following a previous clone operation."> + <:ENTITY panel_instruct_2 + "Select an action to request for this clone."> + <:ENTITY action_prompt "Clone Action"> + <:ENTITY reconnect_prompt + "Reconnect the clone table with Git repository"> + <:ENTITY replace_prompt + "Delete the working directory and redo clone action"> + +<:-- panel fields prompt text follows --> +<:-- End of translatable panel text section --> +)> <:-- DO NOT DELETE THIS LINE --> + +<:-- common panel body file imbed --> +&bgzcfclb; + <:-- COPYRIGHT IBM CORP 2020 --> diff --git a/IDE/GitISPFClient/sbgzgmli/bgzcfclb.gmli b/IDE/GitISPFClient/sbgzgmli/bgzcfclb.gmli new file mode 100644 index 00000000..db960deb --- /dev/null +++ b/IDE/GitISPFClient/sbgzgmli/bgzcfclb.gmli @@ -0,0 +1,37 @@ + COPYRIGHT IBM CORP 2020 + + + + + + +&panel_title + + &bgzrepos_prompt; + &bgzusdir_prompt; + &group_header_1; + +

&panel_instruct_1; + + +

&panel_instruct_2; + + + + + + &action_prompt; + &reconnect_prompt + &replace_prompt + + + + + + +<:-- COPYRIGHT IBM CORP 2020 --> diff --git a/IDE/GitISPFClient/sbgzpenu/bgzcfclo.penu b/IDE/GitISPFClient/sbgzpenu/bgzcfclo.penu new file mode 100644 index 00000000..cb971083 --- /dev/null +++ b/IDE/GitISPFClient/sbgzpenu/bgzcfclo.penu @@ -0,0 +1,31 @@ +]@Mk]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]@M]@M]@@@@@@@@@@@@a\@@`@@`@K@\a@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@M]@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@M]@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]@Mk]@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ +@@@@@@@@@@@@@@@@@@@Ö@@@Ó@ +@@@@@@@@@@@@@@@@@@@@ +@@@@ +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ lj@م@@@@z@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ +@@@@@@@@@ 料@ĉ@z@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ +@@@@@@@@@ +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ɕz@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ +@@@@ +@@㈅@@@@K@㈉@@@@@ +@@@@@@@ +@@@@ +@ +@@@@@@@@K + +@@@@""@ +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ +@@⅓@@@@@@@K +@@@@@@@@@@@@@@@@@@@@@@@@@@@@ +@@@@""@ +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ + + Ó@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ +@@@@ + + +&K م@@@@@lj@@@@@ +@@@@@@@@@@@@@@@@@@@@ + +@@@&K ą@@@@@@@ +@@@@@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@K@~@}M@@]}@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@K@~@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KM]~}M]@M]}@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MP@kk]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@M]@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@M]@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a\@@@@@\a@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a\@@مz@KK@@Ӆz@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@\a@@@@@@@@a\@a@KKK@@Ù@`@āz@@ƅ@k@㉔z@z@@@@@@@@@@@\a@@@@@@@@ \ No newline at end of file diff --git a/IDE/GitISPFClient/sbgzsamp/bgzgit.jcl b/IDE/GitISPFClient/sbgzsamp/bgzgit.jcl index 17365bb3..fe97c71e 100644 --- a/IDE/GitISPFClient/sbgzsamp/bgzgit.jcl +++ b/IDE/GitISPFClient/sbgzsamp/bgzgit.jcl @@ -173,6 +173,8 @@ '#hlqual.SBGZPENU(BGZSLREP)' BIN LC SUFFIX OGETX '#clonePath/GitISPFClient/sbgzpenu/bgzsludl.penu' + '#hlqual.SBGZPENU(BGZSLUDL)' BIN LC SUFFIX + OGETX '#clonePath/GitISPFClient/sbgzpenu/bgzcfclo.penu' + + '#hlqual.SBGZPENU(BGZCFCLO)' BIN LC SUFFIX OGETX '#clonePath/GitISPFClient/sbgztlib/bgzkeys.gmlkey' + '#hlqual.SBGZTLIB(BGZKEYS)' BIN LC SUFFIX /*