Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
24 lines (17 sloc) 562 Bytes
/*
* Name: TARLIST EXEC
* something like FILELIST or RDRLIST but for TAR archives
* Copyright 1992, Richard M. Troth
*/
Parse Arg fn ft fm args '(' opts ')' rest
If fn = "" Then fn = "TAP1"
/* if tarfile is a URL then pass it as an option */
If POS("://",fn) > 0 Then Do
tarfile = fn
Address "COMMAND" 'GLOBALV SELECT TARLIST PUT TARFILE'
fn = "*TARFILE"
End
/* now drive XEDIT with the TARLIST macro */
'XEDIT' Userid() 'TARLIST A0 (WIDTH 240 PROFILE PROFTLST)' ,
fn ft fm args '(' opts ')' rest
Exit rc