home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
comm
/
appcfxfr.zip
/
APPCFXFR
Wrap
Text File
|
1989-12-16
|
7KB
|
145 lines
// COPY LIBRARY-P,NAME-FILXFRP
*
* PROCEDURE FILXFRP - S/36 INTER SYSTEM FILE TRANSFER UTILITY.
*
* Copyright 1987 Philip J. Buonomo, all rights reserved.
* This utility may be distributed in original form by anyone, any-
* where, at any time. If you find this utility useful, a suggested
* donation of $50 for use in a commercial environment may be sent
* to P.O. Box 12, Lyndhurst, NJ 07071.
*
// REGION SIZE-4
// IF EVOKED-YES GOTO XFRTAG
// IF JOBQ-YES GOTO XFRTAG
// SWITCH 00000000
// LOCAL BLANK-*ALL
// EVALUATE P1='S' P8='N' P9='SECLOC ' P10='*NUL' P11,1=0 P13='N'
// TAG START
// PROMPT MEMBER-FILXFRFM,FORMAT-SCREEN1,START-1,+
LENGTH-'1,8,6,8,8,6,8,1,8,4,1,8,1',UPSI-YES
// LOCAL OFFSET-1,DATA-'?1?'
// LOCAL OFFSET-2,DATA-'?2?'
// LOCAL OFFSET-10,DATA-'?3?'
// LOCAL OFFSET-16,DATA-'?4?'
// LOCAL OFFSET-24,DATA-'?5?'
// LOCAL OFFSET-32,DATA-'?6?'
// LOCAL OFFSET-38,DATA-'?7?'
// LOCAL OFFSET-46,DATA-'?8?'
// LOCAL OFFSET-47,DATA-'?9?'
// LOCAL OFFSET-55,DATA-'?10?'
// LOCAL OFFSET-59,DATA-'?11?'
// LOCAL OFFSET-60,DATA-'?12?'
// LOCAL OFFSET-68,DATA-'?13?'
// IF ?CD?/2007 * 'JOB CANCELLED.'
// IF ?CD?/2007 CANCEL
// IFF ?1?/S IFF ?1?/R GOTO START
// IF ?2?/ GOTO START
// IFF ?CD?/2001 IFF ?CD?/2002 IFF ?CD?/0000 GOTO START
// IF ?CD?/2001 * 'JOB WILL BE EVOKED.'
// IF ?CD?/2001 EVOKE FILXFRP *ALL
// IF ?CD?/2002 JOBQ ,FILXFRP,?1?,?2?,?3?,?4?,?5?,?6?,?7?,?8?,?9?,?10?,+
?11?,?12?,?13?
// IF ?CD?/2001 CANCEL
// IF ?CD?/2002 CANCEL
// * 'FILE TRANSFER SUBROUTINE IS RUNNING.'
// TAG XFRTAG
// REGION SIZE-4
// LOAD FILXFR
// RUN
// IF ?L'59,1'?/0 MSG ?USER?,FILE ?2? TRANSFERRED FROM/TO ?9? AS ?5'?2?'?.
// ELSE MSG ?USER?,ERROR IN TRANSMISSION OF FILE ?2?.
// CEND
// COPY LIBRARY-S,NAME-FILXFR
0001 H 064 B 1 FILXFR
0002 F* FILXFR - Multi-location file transfer utility for the System/36.
0003 F* Copyright 1987 Philip J. Buonomo, all rights reserved.
0004 F* This utility may be distributed in original form by anyone, any-
0005 F* where, at any time. If you find this utility useful, a suggested
0006 F* donation of $50 for use in a commercial environment may be sent
0007 F* to P.O. Box 12, Lyndhurst, NJ 07071.
0008 ILDA UDS
0009 I 1 1 FCODE
0010 I 2 9 QUAL1
0011 I 10 15 QUAL2
0012 I 16 23 QUAL3
0013 I 24 31 QUAL4
0014 I 32 37 QUAL5
0015 I 38 45 QUAL6
0016 I 46 46 REPL
0017 I 47 54 LOCNAM
0018 I 55 58 PWORD
0019 I 59 59 RCODE
0020 I 60 67 ERRMIC
0021 I 68 68 APPN
0022 C********************************************************************
0023 C EXIT SUBRF2
0024 C RLABL FCODE
0025 C RLABL QUAL1
0026 C RLABL QUAL2
0027 C RLABL QUAL3
0028 C RLABL QUAL4
0029 C RLABL QUAL5
0030 C RLABL QUAL6
0031 C RLABL REPL
0032 C RLABL LOCNAM
0033 C RLABL PWORD
0034 C RLABL RCODE
0035 C RLABL ERRMIC
0036 C RLABL APPN
0037 C SETON LR
// CEND
// COPY LIBRARY-S,NAME-FILXFRFM
0001 SSCREEN1
0002 DSCRNCODE 1 1 4Y Y C1
0003 D 21 229Y Y Y CFile Transfer Utility
0004 D 8 269Y CFILXFRFM
0005 D 21 410Y CFile Transfer Option:
0006 DFCODE 1 436Y YA Y Y
0007 DFA0001 25 448Y CMust be S or R (RequireX
0008 Dd)
0009 D 17 6 7Y Y Y CData File Options
0010 D 22 648Y Y Y CLibrary Member Options
0011 DFA0001 1 8 3Y Y C*
0012 D 20 8 7Y CFile Name (Required)
0013 DFILENAME 8 833Y Y Y Y
0014 D 33 848Y CLibrary Name (Required)
0015 D 9 9 7Y CFile Date
0016 DDATETYPE 6 934Y Y Y Y
0017 D 26 948Y CMember Type (SOURCE, PRX
0018 DOC,
0019 D 201061Y CLOAD, SUBR) (Req'd)
0020 D 2411 7Y C(Leave this field blankX
0021 D)
0022 DMEMBNAME 81133Y Y Y Y
0023 D 331148Y CMember Name (Required)
0024 D 1612 7Y CTarget File Name
0025 DTARGNAME 81233Y Y Y
0026 D 191248Y CTarget Library Name
0027 D 1613 7Y CTarget File Date
0028 DTARGDATE 61334Y Y Y
0029 D 241348Y C(Leave this field BlankX
0030 D)
0031 D 2414 7Y C(Leave this field blankX
0032 D)
0033 DTMEMNAME 81433Y Y Y
0034 D 181448Y CTarget Member Name
0035 D 231610Y CReplace Exisiting File?
0036 DREPL 11636Y Y B Y
0037 D 201710Y CRemote Location Name
0038 DLOCNAM 81733Y Y Y
0039 D 211753Y Y CEnter Data and Press:
0040 D 81810Y CPassword
0041 DPWORD 41835Y Y Y
0042 DFA0002 181855Y CCmd 1 to Evoke Job
0043 D 111910Y CReturn Code
0044 DRCODE 11936Y YD Z Y
0045 DFA0003 171955Y CCmd 2 to Jobq Job
0046 D 92010Y CError MIC
0047 DERRMIC 82033Y Y Y
0048 DFA0004 162055Y CENTER to Run Job
0049 D 42110Y CAPPN
0050 DAPPN 12136Y YA Y
0051 DFA0001 152155Y CCmd 7 to Cancel
0052 DFA0002 4123 3Y Y C* Note: File or LibraryX
0053 D cannot be in use. Copyright 1987 Philip J. Buonomo
// CEND